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1. INTRODUCTION 


1.1. GENERAL 

This manual describes the ALGOL language for the UNIVAC 1106 and 1108 Systems. The 
basis for this language is the “Revised Report on the Algorithmic Language, ALGOL 60” 
(Communications of the ACM, Vol. 6, January 1963, 1 — 17). This implementation of 
ALGOL is very close to that of the report. Its one significant omission is the omis¬ 
sion of dynamic own arrays. Some of its more significant additions include three new 
data types (STRING, COMPLEX, REAL 2), and default declarations. Provision is 
made for inclusion of procedures written in assembly language or FORTRAN V. 

This manual is intended as an introduction to ALGOL 60 and as a reference manual in the 
use of UNIVAC 1106/1108 ALGOL and is not intended as an exhaustive, self-contained 
description of ALGOL 60. The text consists principally of definitions and rules for 
writing ALGOL programs, examples of these rules, and some sample programs. 

A set of appendices includes special sections on file-handling procedures, UNIVAC 
1106/1108 ALGOL syntax in chart form, and sample ALGOL programs; lists of basic 
symbols, library procedures, and diagnostic messages. 

The contents of this manual are oriented to 1108 ALGOL under EXEC 8. Differences in 
operation between 1108 ALGOL under EXEC II and EXEC 8 are listed in Appendix F. 
Footnotes in text alert the reader of this manual to these differences with suitable 
references to Appendix F, which contains cross-references. Operation of 1106 ALGOL 
is similar to the operation of 1108 ALGOL under EXEC II. 

1.2. THE ALGOL COMPILER 

The ALGOL compiler is a program which accepts statements expressed in ALGOL and 
produces programs for the UNIVAC 1106 System or for the UNIVAC 1108 System. 

An ALGOL program is a sequence of statements written in ALGOL language. These 
are translated by the compiler into the language of the computer: machine language. 

The ALGOL statements are called the source code , and the translated statements are 
called the object code. The compiler itself is a program written in machine language 
and is called the UNIVAC 1106/1108 ALGOL 60 Compiler. While translating the ALGOL 
statements, the compiler looks for errors in syntax (that is, for errors in the forms or 
construction of statements). 

The compiler operates in two passes. The first pass scans the statements and does 
about 95 percent of the work required to produce the final object code. The second 
pass goes into operation immediately after all the statements have been scanned; it 
completes the remaining details of producing the object code. Upon successful 
compilation, the object code can be read into the main storage and executed. Activi¬ 
ties that occur during compilation are sometimes referred to as compile-time activities; 
for instance, compile-time diagnostics. The execution phase is referred to as run¬ 
time. 
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1.3. ALGOL 60 AND UNIVAC 1106/1108 ALGOL 

There are several differences between ALGOL 60 as defined in the revised report 
and 1106/1108 ALGOL 60. In that ALGOL is intended as a standard language and com¬ 
patibility of programs between machines is becoming more and more important, those 
differences must be explicitly pointed out. They fall into two classes: extensions 
to ALGOL 60 and definition of things left undefined by the report; modifications or 
omission of ALGOL 60 entities. 

1.3.1. Extensions to ALGOL 60 

Extensions to ALGOL 60 include the following: 

■ STRING and STRING ARRAY variables enhance the value of ALGOL as a data 
processing language. 

■ New arithmetic types COMPLEX and REAL 2 enhance the value of ALGOL to 
scientific users. 

■ XOR, an additional Boolean operator is provided. 

■ EXTERNAL PROCEDURE declarations are provided for convenience in pro¬ 
gramming large problems and for building libraries. 

■ I/O and other library procedures are provided and, related to them, are the 
FORMAT and LIST declarations. 

■ A compact form for GO TO and FOR statements is allowed. 

■ Variables are given the value of zero (arithmetic items), FALSE (Boolean items), 
or blank (string items) at the entrance to a block; thus initialization statements 
may not be required. 

■ The controlled variable of a FOR statement has a defined value when the 
statement is terminated by exhaustion of the FOR list. 

■ The OTHERWISE declaration or declaration by default is provided. 

■ The variables in a multiple assignment statement need not be the same type. 

■ Arguments of type COMPLEX and REAL 2 are permitted for various standard 
functions. 

1.3.2. Deviations from ALGOL 60 

■ Because of hardware requirements, identifiers are unique only to their first 
twelve characters and may contain no blanks; numbers may contain no blanks, 
and certain basic symbols are reserved identifiers (see Appendix A). 

■ OWN arrays are not dynamic. 

■ Numeric labels are not allowed. 

■ The comma is the only parameter delimiter allowed in a procedure call. 

■ A LOCAL declaration is required to resolve all forward references to identifiers. 

■ An integer raised to an integer power always produces a REAL value. 
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■ All the formal parameters of a procedure must be specified and must agree in 
type with the actual parameters. 

These and other restrictions are covered in more detail in later sections of this 
manual. 

1.4. LANGUAGE CONVENTIONS 

ALGOL is described in terms of three languages in this manual: reference, publi¬ 
cation, and hardware language. 

The reference language is that which defines ALGOL in the ALGOL 60 Revised 
Report. It is computer independent and utilizes the basic ALGOL symbols to 
define the language syntax and semantics. Throughout the text, but sparingly, the 
syntax of 1106/1108 ALGOL is described in terms of this reference language. 

Example: 

<identifier> : := < letter > / < identifier >< letter > / < identifier > <digit> 

(Read : := as ‘is* and / as 'or') 

This says that an < identifier > is either a < letter > or an < identifier > followed 
by a < letter > or an < identifier > followed by a < digit >. Further discussion of 
identifiers is found in 2.2. 

While having the advantage of compactness and precision, the formalism is not 
suitable as an introduction to ALGOL and so has been used only as a summary aid. 
Except for the formal definitions of the reference language, the hardware language 
(the language acceptable to the UNIVAC 1106 and 1108 system) has been used through¬ 
out the text. All basic symbols which appear in the text, as well as all examples, are 
written in upper case letters. This is the form in which they appear in the hardware 
language. 

For publication purposes, the boldface type delineates the basic UNIVAC 1106/1108 
ALGOL symbols. Transliteration rules for basic symbols are given in Appendix A. 

Statements may be separated from each other by either the semicolon or the dollar 
sign. Because of keypunch limitations, the $ is commonly accepted and has been 
used in all examples throughout this manual. 

The following symbols are considered equivalent: 

.. is equivalent to : (colon) 

= is equivalent to := (replacement operator) 
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2. ELEMENTS OF THE LANGUAGE 




2.1. THE CHARACTER SET 

The ALGOL compiler employs a character set which is commonly available as a 
variant of the usual Hollerith code (FORTRAN H set) plus a few special UNIVAC 
1106/1108 characters. These are: 


Letters 

A-Z 

Digits 

0-9 

Special characters 

+ - = (),$/*. blank 

UNIVAC 1106/1108 special characters : & < > ’ C J; 


In addition, some multiples of characters are given meaning as if they constituted 
a single character: 

. . colon (interchangeable with :) 

/ / integer divide 
** exponentiation 

&& base 10 scale factor (double precision) 

:= replacement (instead of merely =) 

A complete list of these characters and the transliteration rules from the ALGOL 
60 report is given in Appendix A. 

2.2. IDENTIFIERS 

Identifiers are names that the programmer chooses to use to refer to the various 
things which make up a program — variables, labels, switches, formats, procedures, 
etc. Identifiers must begin with a letter and may be followed by any number of 
letters and/or digits. None of the special characters listed in 2.1 (including a 
blank) may be used in an identifier. The compiler considers two identifiers iden¬ 
tical if the first 12 characters are alike. 

The following are all legitimate identifiers but the last two are not unique since 
their first 12 characters are identical. 

X A5 

SUMX A1B2C3 

Y N0NLINEARRE5IDUE 

ALTITUDE NONLINEARRESULT 


Some basic symbols have the same form as identifiers and are called RESERVED 
IDENTIFIERS (see Appendix A). These can never be used except in their intended 
context as basic symbols. For example, the word BEGIN can never be used as 
the name of a quantity because it has an inherent meaning within the language and 
cannot be redefined. On the other hand, several common arithmetic functions are 
available for use without being declared, but these names can be redefined as 
identifiers (see Appendix B). All identifiers, including reserved identifiers, must 
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be separated from each other in the source language by delimiters. All the special 
characters listed in 2.1 are delimiters. The blank is a unique delimiter in that a 
sequence of blanks is treated as one blank. 

2.3. CONSTANTS 

Six types of constants may be used in the UNIVAC 1106/1108 ALGOL source program 
language. They are integer, real (single precision, floating point), double precision, 
complex, Boolean, and string constants. 

2.3.1. Integer Constants 

Integers are whole numbers represented internally by 35 bits plus the sign. Range 
of an integer N (in magnitude) is from zero to 2^ - 1 inclusive (2^ - 1 = 

34359738367). 

If positive, the integer may be prefixed with a plus sign. If negative, it must be 
prefixed with a minus sign. 

examples: o 4-23 

70 2222222222 

-204 +0 


2.3.2. Real Constants 

A real constant is a string of eight or fewer digits with a decimal point. The 
point may precede, follow or be imbedded within the digits. Internally it is 
represented as a floating point number with 9 bits for the sign of the number and 
exponent and 27 bits for the fraction. The plus sign is optional, but a negative 
sign must precede a negative constant. The magnitude ranges from approximately 
10 "88 to 10^8 or it may be zero. 

EXAMPLES: 3*1416 750• 

G.O + 1.7 

•645 -20.4 

If desired, a scale factor may be appended to a real constant to indicate that it is 
to be multiplied by the indicated power of 10. This scale factor is represented by 
an ampersand followed by an optional plus or minus sign and then by an integer. 
The integer specifies the power of 10 to be used and is limited to two digits. 
2.65&6 means 2.65 x 10^ or 2,650,000. 

-17.445&-5 means - 17.445 x 10-^ or - 0.00017445 

In addition a real constant may be written as an integer followed by a scale 
factor or a scale factor by itself may be used to signify a real constant. 

2&-6 means 2 . 0&-6 or .000002 
&7 means 10 ^ or 10 , 000 , 000.0 

2.3.3. Double Precision Constants 

Double precision constants are used for double precision calculations. The 
magnitude ranges from approximately 10’808 to 10^8 or it may be zero. The 
maximum number of digits is 18. 
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Double precision constants are differentiated from real constants by use of && 
for power of ten, or by inclusion of between 9 and 18 digits in the fixed point 
part. Double precision constants are ordinarily used only with variables of type 

REAL 2. 

The following are acceptable double precision constants: 

3.1415926&3589793 
1•049652345666&-22 
4.655&S-4 
1 . 0&&2 
4«&0 


2.3.4. Complex Constants 

The general form of a complex constant is: 

<R1*R2> 

where Rl and R2 are real or integer constants and where < and >are required. 
Examples: 

<1.0, 1.0> represents 1+i 

< 7.0&-2, - 2 > represents 0.07-2i 
<0.0, 1.0 > represents i 

2.3.5. Boolean Constants 

Only two Boolean constants are allowed: 

TRUE 

FALSE 

2.3.6. String Constants 

A string constant is a string of characters not containing a quote but enclosed 
by quotes. The maximum size of a string constant is 4095 characters. 

Examples: 


♦STANDARD DEVIATION 
♦PRINCIPLE RATE PERIOD PAYMENT 1 
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3. DECLARATIONS 




3.1. GENERAL 

An ALGOL program may be broken into logical segments called blocks which are 
complete and independent units. Their structure is discussed in Section 8. One 
important property of a block is that, at the beginning of the block, all of the local 
entities that are to be referenced inside the block must be declared. Declarations 
determine how the compiled program will treat certain of its elements; thus it is neces¬ 
sary to precede the use of an identifier with a declaration of type. An identifier may 
appear in only one declaration within a block; however a block may contain blocks 
within itself (as shown in 8.3). Any of these blocks may declare variables taking on 
names used in outer blocks, thus redefining them for the inner block. 

3.2. TYPE DECLARATIONS 

The type declaration defines the type of variable named by an identifier. This 
declaration specifies that all values which the identifier assumes must be of the 
designated type. The general form of type declaration is: 

< type> < type list > 

where<type list>is a list of identifiers separated by commas. Each declaration is 
terminated by a ; or $. The five possible type declarations are: 

INTEGER — Integral values represented internally by 36 bits. The range of an integer 
(in magnitude) is zero thru 2^— 1 inclusive. 

REAL - Floating point numbers internally represented by 9 bits for sign of the number 
and the exponent and 27 bits for the fraction. The range of a real number (in magni¬ 
tude) is 10—38 £ 0 1()38 anc | Q w ith approximately 8 digits of precision. Any real 
quantity which is less than 10-38 j s represented by zero. 

REAL 2 — Floating point numbers internally represented by 12 bits for sign of the 
number and the exponent and 60 bits for fraction. The range of a REAL 2 number (in 
magnitude) is approximately 10-308 to 103°8 an( j zer0 with approximately 18 digits 
of precision. 

COMPLEX - Complex values of the form A + i*B where A and B are REAL numbers. 
BOOLEAN — Truth values, TRUE or FALSE. 
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Examples of type declarations are: 

INTEGER If Jf Kf COUNTER $ 

REAL Xr Y* TEMP f VELOCITY $ 

BOOLEAN AJAX $ 

COMPLEX Up ZZp Ur V $ 

REAL 2 Ar Br C $ 

3.3. ARRAY DECLARATIONS 

When simple variables are declared as described previously, a different name must be 
used for each different variable being defined. The ARRAY declaration provides a means 
of referring to a collection of numbers that fall into a matrix or array by the use of a 
single identifier. 

This ARRAY declaration specifies to the compiler the structure which is to be 
imposed on this collection. An array is a group or set of elements arranged so that 
each may be identified by its position within the group. The compiler considers all 
elements of array to be of the same type. 

Arrays in this compiler are restricted to those of rectangular construction in n- 
dimensional space. 

For example, the declaration REAL ARRAY A(l:10) defines an array A with ten 
elements which may be referenced by: 

A( 1) A (2) A ( 3) A(4) A(5) A(6) A(7> A(8> A(9> A<10) 

The general form of array declaration is 

<type>ARRAY < array list > (Cbound pair list>) 

where type may be of any of the types given in 3.2. If type is omitted, it is assumed 
to be REAL. The array list specifies the names of the arrays. The bound-pair list 
consists of a bound pair for each array dimension. Each bound pair is of the form: 

lower limit:upper limit 

A complete array declaration for a single array is of the form: 

ARRAY ACl^uj, l 2 :u 2 , 13 ^ 3 ,- 

where l's represent lower bounds and u*s represent upper bounds. Either or both of 
the bounds may be negative, but lj < uj. 


For example: 

INTEGER ARRAY I t 0 :4, 1 : 3 ) S 
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defines an 

array composed 

of five rows 

1(0,1) 

1(0,2) 

1(0,3) 

1(1,1) 

1(1*2) 

1(1*3) 

1(2,1) 

1(2,2) 

1(2,3) 

1(3,1) 

1(3,2) 

1(3,3) 

I<4,1) 

1(4,2) 

1(4,3) 


In the previous declaration, the parts 0:4 and 1:3 are called bound pairs, and each set 
of them defines a subscript position. The first digit of the bound pair specifies the 
lowest possible value for that subscript position, and the second specifies the highest. 

An element of array I is referenced by the identifier I followed by a subscript list en¬ 
closed in parentheses (see 4.2.3.1). Since the lower bound of the first subscript position 
is 0, 1(3,2) refers to the element in the fourth row and second column of array I. There 
is no limit to the number of subscript positions an array may have. However, declarations 
like 


REAL ARRAY A(6J5) $ 

are not allowed, since the lower bound must not be greater than the upper bound. 

This declaration would result in an execution-time error. 

Array identifiers of the same type, separated by commas, may be included in one 
declaration: 

BOOLEAN ARRAY A(1..2> » B<1S10,14:22>, C(-2J7,0J100) *. 

If two or more arrays are of the same type and same size, they may be listed sequentially 
with the dimension specification after the last array identifier in the group.. 

COMPLEX ARRAY COM* COMI*DECOM#COmCONJ<3:10) <E 

This declaration defines four one-dimensional arrays. Each consists of eight 
complex numbers and the subscripts of the elements range from three to ten. 

One of the most important feature of ALGOL is that the expressions for the bound pairs 
need not be constants; they can be any expression referring to non-local variables and 
constants. 

Example: 

REAL ARRAY A(1JNtX//2JENTIER ( X)#0:TIMEMAX)>DPI*DP2(-INFINITYJ 
INFINITY) $ 

The size of these arrays depends on the values of N, I, X, TIMEMAX, and INFINITY. 
Therefore, the size varies from one execution to another. Because of this, the actual 
storage cells for the array afe allocated during execution each time the block (in which 
the array declaration occurs) is entered; i. e., at the place the array is declared. This 
is called ‘dynamic* storage allocation. All the variables in a program except own 
variables (see 3.5) are allocated in storage in this way. Section 8 explains the process 
of allocating variable storage for ALGOL. Note that the dynamic allocation concept 
cannot be used in the outermost block (i. e., the bound pair list may contain only 
constants in the array declarations in the outermost block). 
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3.4. STRING DECLARATIONS 

The STRING declaration provides a means of referring to a collection of alphanumeric 
characters in Fieldata code by the use of a single identifier, and at the same time 
specifies to the compiler the structure which is to be imposed on this collection. The 
string declaration defines the name and length of the string: 

STRING S(0Q) $ 

Strings may have substrings, either named or unnamed: 

STRING S<L<4G)*R<40)) $ 

defines a string S as having a length of 80 characters with the first 40 characters being 
a string L and the second 40 a string R. 

STRING S<6fS7<10)f4fQ(8rG9U)f2)> $ 


6 

10 

4 

8 

1 

2 


■*—S7—- 


-_ 

Q9 




-s- 

r v 


The above declaration defines the strings S, S7, and Q and Q9. It also gives their 
relative position since 6, 4, 8, and 2 are unnamed substrings. The expression for the 
length of a string must be positive and less than 4096. Strings, like simple variables 
and arrays, may be declared with an identifier list: 

STRING CARD (HO) t LINEQ32)# ITEM ( (CODE (DEPT (2 ) , SECTION (8)), 
5# NAME (30) f R AT E ( 5 ) * TIME <5)r 6ROSS(10>* NET (10))$ 

The string CARD holds 80 characters corresponding to a card image. Correspondingly, 
the string LINE holds one print line image. The string ITEM, on the other hand, has 
the somewhat complicated structure shown below: 


DEPT(2) SECTIONS) 



Rate 

Time 

Gross 

Net 

CODE(10) 

(5) 

NAME(30) 

(5) 

(5) 

(10) 

(10) 


ITEM(75) 


ITEM has 75 characters partitioned into the strings CODE, NAME, RATE, TIME, GROSS, 
and NET. In addition, the string CODE of 10 characters is partitioned into the strings 
DEPT and SECTION. Thus 

ITEM(8) = CODE(8) = SECTION(6). 

3.4.1. String Arrays 

A combination of the string and array declarations defines a quantity known as a 
string array. A string array is an array whose elements are strings. The form of 
declaration is: 


STRING ARRAY S(< string part> : < array part>) 
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where<string part>specifies the length of each element of S (and also defines any 
substrings just like a string declaration) and <array part>is the list of bound pairs 
just as for a simple array (see 3.3). 

Example: 

STRING ARRAY S(L(40)>R(40)J1I10* 1510) $ 

defines a two-dimensional array S with ten rows and ten columns. Each element of 
the array is a string of 80 characters. Furthermore each string consists of substrings 
L and R each 40 characters long. Referencing of substrings is discussed in 4.4. 

3.5. OWN DECLARATIONS 

Whenever a block is entered, arithmetic variables and arrays that are declared within 
that block are given the value zero, Boolean variables and arrays are given the value 
FALSE, and strings are given the value (blank) in each of their character positions. 

The additional symbol OWN in front of any one of these types of declarations changes 
this initialization in the following way: the first time the block is entered they are 
given initial values as above. In subsequent entrances to the block they have the 
same value as they had on the last exit from the block. 

Examples: 

BEGIN INTEGER I $ 

REAL FX 9 FY $ 

OWN BOOLEAN ALPHArBETA $ 

OWN REAL ARRAY DEV (i:i0> IS 10) $ 

In general all declarations allowed in 3.2, 3.3, and 3.4 of this chapter are also permitted 
as OWN declarations. The exception to this rule is that the length of a string or the 
length of any of the subscript positions of an array does not change after the first 
entrance to the block. Thus, if a block begins by: 

BEGIN OWN ARRAY A(OSN) % 


and N has the value six (elements are numbered zero through six), the length of A 
remains seven throughout the program even if N has a different value at the next 
entrance to the block. 

3.6. DEFAULT DECLARATIONS 

The OTHERWISE declaration allows the programmer to specify that all simple variables 
(those without subscripts), unnamed in a type declaration are assumed to be of a given 
type. 

BEGIN REAL X f FX f FPX $ 

integer otherwise % 


< 
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means that any other simple variables besides X, FX, FPX that are encountered in this 
block are to be integers. The OTHERWISE declaration may not be used in connection 
with an array or string. A hazard of this declaration is that it carries the danger that 
‘new’ variables may be created unintentionally and not noticed. 

Example: 

begin integer otherwise $ 

B00MB00M = 2$ 

AEN s 4$ 

B00M800M = ((B00MB00M+AEN)*B0QMB00M+AEN>*B00M8QM$ 


The variable BOOMBOM has crept into the calculation when BOOMBOOM was the 
proper one. Therefore the OTHERWISE declaration must be used with care. Another 
type declaration may follow the OTHERWISE declaration. 

3.7. THECOMMENT 

The COMMENT allows the programmer to include such things as clarifying remarks and 
identifying symbols in the printed compilation. A comment may serve any purpose the 
programmer desires once it is ignored by the compiler. 

Two commonly used forms are: 

BEGIN COMMENT <any sequence not containing ; or $ >; 

;COMMENT <any sequence not containing ; or $ > ; 

Example: 

BEGIN COMMENT SAMPLE PROGRAM USING UNIVAC 1106/1108 ALGOL $ 

Any characters following an END and preceding another END, ELSE, or a semicolon 
are also treated as comments. 

Examples: 


END OF INNER LOOP END OF OUTER LOOP $ 
END THIS TERMINATES THE THEN PART ELSE 
END OF HEAT TRANSFER PROGRAM $ 


3.8. FORMAT, LIST, SWITCH, PROCEDURE, LOCAL 

The other declarations are of a more complicated nature and appear in other parts of the 
manual. FORMAT and LIST are concerned only with input/output and are discussed in 
Section 9. Procedures are discussed in Section 7 and switches in Section 5. The 
LOCAL declaration is added to the language to allow faster (one pass) translation into 
object code. It is discussed in Section 8. 

f" 

V 







< 

4. EXPRESSIONS 



4.1. GENERAL 

An expression is a rule for computing a value. There are four kinds of expressions: 
arithmetic, Boolean, string, and designational. Expressions are composed of operands, 
operators and parentheses. Operands are constants, variables, function designators, or 
other expressions. Operators are symbols which designate arithmetic, relational, or 
logical operations, and parentheses are used to determine the sequence of operations 
to be performed. The value of an arithmetic expression is a number of the type 
INTEGER, REAL, REAL 2 or COMPLEX. The value of a Boolean expression is 
either TRUE or FALSE, and the value of a string expression is a string of symbols. 

The value of a designational expression is a statement label. Expressions must be 
formed in accordance with mathematical convention and with the rules discussed in 
the following paragraphs. 

4.2. ARITHMETIC EXPRESSIONS 

Arithmetic quantities are combined into arithmetic expressions by means of the follow¬ 
ing arithmetic operators: 

+ denotes addition 
— denotes subtraction 
* denotes multiplication 
/ denotes division 
** denotes exponentiation 
// denotes integer division 

The expression 

A//B 

can be written only when A and B are both of type INTEGER. The expression has the 
integer value of the unrounded quotient of A by B. 

Thus 5//3 = 1 

The expression 

A**B 

means A raised to the power B. 
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4.2.1. Ordering Rules for Operations 

When arithmetic expressions are evaluated, the arithmetic operations are performed 
according to the following rules of priority or precedence. 


Class 1 

** 

Exponentiation 
Unary minus^ 

Class 2 

— 

Class 3 

* 

Multiplication 


/ 

Division 


// 

Integer division 

Class 4 

+ 

Addition 


_ 

Subtraction 


Expressions with operators in different classes are evaluated in order (1, 2, 3, and then 
4) unless parentheses are used to change the order. Expressions containing opera¬ 
tors in the same class are evaluated from left to right. Parentheses may be used to 
override the given order of evaluation. Expressions within innermost parentheses 
are evaluated first. 

Examples: 

Expression 


A-B-C 

a~b**c 
A**B-C**D 
A+B/C 
A/B/C 
A**B**C 
-A**2 

4.2.2. Hierarchy of Operand Types 

Mixed-mode arithmetic is permitted. The evaluated arithmetic expression assumes 
the type of the dominant operand type in the expression. The order of dominance is 
COMPLEX, REAL 2, REAL, and INTEGER. Exponentiation routines for COMPLEX 
**REAL 2 and REAL 2**C0MPLEX have not been implemented. 


Compiler Interpretation 


(A-B)-C 

A-(B**C) 

(A**B)-(c**D) 

A+(B/C> 

(A/B)/C 

(A**B)**C 

-(A**2> 


Example: 

INTEGER I S 

REAL R $ 

REAL 2 R2 $ 

COMPLEX C $ 

then 

I*R IS REAL 

R2+R IS REAL 2 

C-R2+I IS COMPLEX 


* Note that the order of precedence for the unary minus and exponentiation has been reversed from 
1107/1108 EXEC II ALGOL . Under the EXEC II system Y— -A**2 would always produce a positive 
result for Y . 
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There are two exceptions to the above rule: 

■ A/B is REAL when A and B are INTEGER 

■ A**B is REAL when A and B are INTEGER 

4.2.3. Operands of Arithmetic Expressions 

The operands of arithmetic expressions are constants, variables, function designators 
(defined below), or other arithmetic expressions. 

4.2.3.1. Subscripted Variables 

A variable may be either a simple variable or a subscripted variable. A subscripted 
variable represents one of the following: 

(1) A single element of an array denoted by the identifier which names the array 
followed by a subscript list enclosed in parentheses, 

(2) A portion of a string variable, or 

(3) A combination of both (1) and (2) in the case of STRING arrays. A subscript 
list consists of arithmetic expressions separated by commas. 

The following are examples of subscripted variables: 

A (11J) 

M(1 + 1 * J+l) 

V(F(P+1)rQ+12) 

Z(W(T> rX(T)*Y(T)rZ(T)) 

X (13) 

A(I*2rI//2) 

The expressions which make up the subscript may be of any complexity. REAL 
values are allowed, in which case the real number is rounded to the nearest integer. 
Each subscript expression must have a value which is not less than the minimum 
and not greater than the maximum specified by the ARRAY declaration or for the 
string as specified by the STRING declaration (see Section 3). The number of 
subscript expressions must equal the number of dimensions of the array as given 
in the ARRAY declaration. Thus, if an array is declared as follows, 

REAL ARRAY A(l!lOfi:iO) 

then A(3,ll) is undefined. 

4.2.3.2. Function Designators 

A function designator is either a call on a declared function procedure (see Section 
7) or a call on a standard function. These standard functions are the ones com¬ 
monly employed in mathematics, such as the square root, sine, and arctangent 
functions. A complete list of the available functions is given in Appendix B. For 
example, the function whose value is the square root of X is called SQRT; there¬ 
fore if 


REAL X $ 
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SORT (X) 

is a function designator. 

Operands themselves may be arithmetic expressions, and combining them by means 
of operators may give rise to more arithmetic expressions. Assuming the declara¬ 
tions: 

REAL R S 
INTEGER I $ 

INTEGER ARRAY A(0:10) $ 


Then the following are valid arithmetic expressions: 


<R*I)/(A(l)+7) 

(A(A(2))-I**3)*M0D(A(7)r4) 


MOD is an example of a standard function. In these examples, liberal use is made 
of parentheses to indicate order of evaluation. 

4.3. BOOLEAN EXPRESSIONS 

The only Boolean constants are TRUE and FALSE and these have their fixed, obvious 
meaning. A Boolean operand may be either a simple variable that has occured in a 
Boolean declaration, a subscripted variable that has appeared in a Boolean array 
declaration or a Boolean function designator such as NUMERIC, or a Boolean constant 
(see Appendix B). Boolean expressions are: 

■ Boolean operands 

■ Arithmetic or string expressions connected by the relational operators LSS, LEQ, 

EQL, GEQ, GTR, or NEQ 

■ Boolean expressions connected by the logical operators NOT, AND, OR, IMPL, EQIV, 
or XOR 

4.3.1. Relational Expressions 

The relational operators have the semantic meanings 


ALGOL 

EXPRESSION 

MATHEMATICAL 

NOTATION 

MEANING 

A LSS B 

A < B 

Less than 

A LEQ B 

A < B 

Less than or equal to 

A EQL B 

A = B 

Equal to 

A GEQ B 

A > B 

Greater than or equal to 

A GTR B 

A > B 

Greater than 

A NEQ B 

A f B 

Not equal to 
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For arithmetic or string expressions A and B, the Boolean expression: 

A< relational operator>B 

is TRUE if the relation holds and FALSE if it does not. A and B may be mixed 
mode. If either A or B is COMPLEX, only the relations EQL and NEQ can be used. 
If A and B are both string expressions (see 4.4), the strings are compared character- 
by-character starting at the left. The shorter string is considered to be filled out 
with blanks to the length of the longer. The collation sequence of characters is that 
of Fieldata. 

4.3.2. Boolean Operators 

The six Boolean (logical) operators are: 


HOT 

negation 

AND 

conjunction 

OR 

inclusive disjunction (inclusive OR) 

IMPL 

implication 

EQIV 

equivalence 

XOR 

exclusive disjunction (exclusive OR) 


The value of a Boolean expression of the form: 

A<Boolean operator>B 

is obtained from the following table. NOT is a unary operator. 


A 

B 

NOT A 

A OR B 

A AND B 

A XOR B 

A IMPL B 

A EQIV B 

TRUE 

TRUE 

FALSE 

TRUE 

TRUE 

FALSE 

TRUE 

TRUE 

TRUE 

FALSE 

FALSE 

TRUE 

FALSE 

TRUE 

FALSE 

FALSE 

FALSE 

TRUE 

TRUE 

TRUE 

FALSE 

TRUE 

TRUE 

FALSE 

FALSE 

FALSE 

TRUE 

FALSE 

FALSE 

FALSE 

TRUE 

TRUE 


Assume the following declarations: 


BOOLEAN AfB $ 
REAL XrYrZ S 
STRING S(IOO) $ 


Then the following are legitimate Boolean expressions. 


B AND A 

10*0 LEQ X AND X LEG 99,0 
NOT B OR A 

NOT (X LSS Y IMPL 2 EQL 2**2) 
NUMERIC(S) OR NOT ALPHABETIC<S> 


In the above example NUMERIC and ALPHABETIC are standard functions (see 
Appendix B). 
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4.3.3. Precedence of Boolean Operations f 

Parentheses may be used to specify the order of operations in Boolean expressions. 

If parentheses are omitted (or within parentheses), Boolean expressions are scanned 
from left to right, and operations are performed according to the following precedence: 

(1) Arithmetic operations according to 4.2.1. 

(2) Relational operations 

(3) NOT 

(4) AND 

(5) OR XOR 

(6) IMPL 

(7) EQIV 

Example: 

A+l 6TR B OR C AND G+2 NEQ H 

will be computed as 

(<A+1) GTR B) OR (C AND ((G+2) NEQ H)) 

Parentheses should be used in compound expressions to avoid confusion or misinter¬ 
pretation by human readers (not the compiler). 

4.4. STRING EXPRESSIONS 

Strings have no operators which produce a string result. Substrings of a declared string 
are defined by giving a starting position and a length. For example, if S is a string 
variable 

SlfUNU S(1^0) t 

then 

SO) 

denotes the ith character in the string S where the characters are numbered from the left 
starting with one. Thus, S(6) is the sixth character in string S. 

S(i,j) 

denotes a string of j characters taken in ascending order from string S starting with the 
character in the ith position. S(l,10) is the substring of S consisting of the first ten 
characters of S. The substring S(l) is equivalent to S(l, 1). That is, if the length is 
omitted, it is taken to be 1. 

/f 

V 
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In summary, consider string S. 

SIKING S(10fR(20) # ST ACM 3t OP (b))»4) % 

In this string the following three string expressions all have the same value; that is, 
they all refer to the same five characters. 

S(34*5) 

STACK (4*5) 

OP 

Partial string-array variables are subscripted variables with two separate subscript 
lists separated by a colon (:). A subscripted string variable is written as 

S(< string part >: < subscript list >) 

If S is a two-dimensional string array, then 

S(i:j, k) 

denotes the ith character in the j, kth element of the string array S. If a group of 
characters is desired, then 

S(i, l:j, k) 

will denote the group of 1 characters taken in ascending order starting with the char- 
acter in the ith position from the j, kth element in the string array. On the other hand, 
if the entire string from the j, kth element in the string array is desired, then the colon 
may be omitted. Thus, 

SO, k) 

specifies the entire string. 

Example: 

SlKiNG ARRAY S(L(40)*R(40):1 1 10 * 1:10) $ 
then 

S(41*40;4*10) 

specifies the last 40 characters of the string in the fourth row and tenth column of the 
two-dimensional array. Each of the elements consists of 80 characters. 

A numeric string expression may be used as an arithmetic operand: 


S<1*5)+1 
SCI) EGL 1 
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When used in this context, the string expression is converted to an integer expression 
by a transfer function. If the string does not represent an integer, an error message is 
printed (see Appendices B and C). If the integer value of the string is greater than 
(2 35 -l), an error message results. 

4.5. DESIGNATIONAL EXPRESSIONS 

Designational expressions are expressions whose values are statement labels (see 5.5). 
The form of a designational expression is either a label, a switch variable, or a condi¬ 
tional expression in which the value of a Boolean expression determines which of two 
designational expressions to use. For further details see 6.2 and 6.3. 

4.6. CONDITIONAL EXPRESSIONS 

The value of an expression may depend on the value of a Boolean expression. For 
example, 

IF X ECU. Y THEN X ELSE 2 

is an integer expression whose value is 1 or 2 depending on whether X equals Y. The 
general form of a conditional expression is: 

IF <Boolean expression> TH EN < simple expression > 

ELSE < expression > 

The expression following THEN and the expression following ELSE must be of the 
same kind (arithmetic, Boolean, or string). The expression following ELSE may be 
another conditional expression. 

Example: 

IF X GTR 0 THEN 0 ELSE (X EQL 0) 

is illegal because in some cases it has an arithmetic value (0) and in other cases a 
Boolean value (X EQL 0). In the cases where the constituent expressions are arith¬ 
metic, then the type of the entire expression is always the more general of the two 
expressions: 

IF X EQL 0 THEN <1.0*2.0> ELSE 2.0 

has a value of either<1.0,2.0>or<2.0,0.0>; that is, a value of type COMPLEX. 

Note that ELSE must always be present in conditional expressions. 

The<simple expression>may be any expression not starting with IF, or any expression 
put into parentheses. For example, the following is not a simple expression because it 
begins with IF, but it contains a simple expression in the parentheses. 


IF A THEN X-HIF 8 THEN X ELSE Z> ELSE IF B THEN Z ELSE 0 
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5. STATEMENTS 


5.1. GENERAL 

The ALGOL statement is the fundamental unit of operation within the language. The 
operations to be performed are specified by statements which may be divided into two 
classes: 

■ Assignment statements 

■ Control statements 

This section discusses assignment statements, combination of statements, statement 
labels, and rules for punctuating statements. Section 6 is devoted exclusively to 
control statements. 

5.2. COMPOUND STATEMENTS 

A number of statements may be grouped to form a compound statement which is to be 
considered as a single statement. The general form of a compound statement is: 


BEGIN s x $ s 2 $ . . . . . $ s n END 

where s^ through s n are single statements or other compound statements. The words 
BEGIN and END serve as opening and closing statement parentheses. Note the ab¬ 
sence of $ between s n and END. 

5.3. ASSIGNMENT STATEMENTS 

An assignment statement is of the form: 

v = e or 
v:= e 

Where v is a variable (simple or subscripted), e is an expression, and the equal sign 
is known as the replacement operator. This replacement operator is not equivalent to 
the equal sign in mathematical notation. The assignment statement specifies that the 
expression e is to be evaluated and this value is to replace the current value of the 
variable v. 
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Examples: 

SUM £ 0 $ Replace the current value of SUM with zero. 

X = Y 4* 2 $ Replace the current value of X with the value of 

(Y + Z). 

Ad) = XI $ Replace the current value of the Ith element of 

array A with the value of XI. 

N = N + 1 $ Increase the value of N by 1. 

Note that the last example is not a valid algebraic equation, but it is a valid assign¬ 

ment statement. On the other hand, a valid algebraic equation such as: 

Z**2 = X**2 + Y**2 

has no meaning to the compiler as Z**2 is not an identifier. Neither an expression nor 
a constant may appear to the left of the replacement operator. 

In the statement 

N - IF X EQL Y THEN 1 ELSE 2 $ 

N is assigned the value 1 or 2 depending on whether X equals Y. In the assignment 
statement 

v = e 

v must be compatible in type with e. The compiler includes transfer functions to 
transfer from the type of e to the type of v. The available transfer functions are sum¬ 
marized at the end of Appendix B. If v and e are of different types, then the compiler 
converts e to the type of v before the assignment is made. 

If the conversion is from REAL to INTEGER then the result is rounded to the nearest 
integer as in the following example: 

INTEGER I $ 

I = 1.57 $ 

The assignment statement assigns the value 2 to I. This is equivalent to writing 
I = ENTIER (1.57 + 0.5) where ENTIER is a standard function which returns the 
integral part of the argument. 

If the expression e is BOOLEAN, then v must also be BOOLEAN. If e is a string 
expression then v must be type STRING or INTEGER; type INTEGER applies only if 
the expression is a numeric string (see Appendix B). If e is an arithmetic expression 
then the v must be arithmetic, v may be type STRING if e is INTEGER. 
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5.3.1. String Assignment Statements 

If the variable v in v = s is a string variable, then this is known as a string assign¬ 
ment statement. In this case, the expression s must be either arithmetic or of type 
STRING. If s is an arithmetic expression then it is first converted to type INTEGER 
and then into its associated string. 

In all cases, the replacement is made such that the leftmost character of the right-hand 
side replaces the leftmost character in the left-hand variable. If the string on the 
left-hand side is longer, extra spaces are supplied to the right as necessary to fill 
out the left-hand string. If the string on the right-hand side is longer, any excess of 
characters from the right-hand side is dropped (that is, the replacement is left justified 
in .the left-hand string variable). 

As an illustration, consider the following uses in which A is a string variable: 


A before 

Statement 

A after 

ABCDEF 

A = * XYZUVW * 

XYZUVW 

ABCDEF 

A = »LOOP-DE-LOOP* 

LOOP-D 

ABCDEF 

A = * HOW * 

HOW 

ABCDEF 

A(2) = ’Q» 

AQCDEF 

ABCDEF 

A(2»3) = »XYZ» 

AXYZEF 

ABCDEF 

A(2»3) = 69 

A69 EF 


It is preferable to write the last statement in the form A(2, 3) =‘695’ so as to avoid 

the time consuming integer-to-string conversion. T 

Characters in a string can be shifted right or left. The following statement shifts S right 
one position and leaves the first character unchanged. 

S(2» N—1) = S(1» N—1) $ 4 

Similarly S can be shifted left by 


S(1»N-1) = S(2»N-i> $ 
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5.4. MULTIPLE ASSIGNMENT STATEMENTS 

The same value can be assigned to a number of variables by means of a multiple as¬ 
signment statement. If the variables to which a value is being assigned are mixed in 
type, thten type conversions are performed. Assume X, Y, and E are REAL, and I is 
INTEGER. Then the statement 

X = I = Y z E $ 

evaluates E and assigns this value to Y; the value of Y is then rounded to an integer 
and assigned to I; the value of I is converted to REAL and assigned to X. 

The general form of assignment statement is of the form: 


v l =v 2“ v 3‘ 


where the v’s are variables (simple or subscripted) and e is an expression. If the v’s 
include subscripted variables, then the order of evaluation is as follows: 

(1) Any subscript expressions are evaluated in sequence from left to right. 

(2) The expression e is evaluated. 

(3) The value of the expression is assigned to all variables proceeding from right to 
left (as in the example X=I=Y=E) with the subscripts having values as determined 
in 1. 

If the value of I is 1 before this statement is encountered, 

A(I) S 8(14-1) =1 = 1 + 1$ 

then evaluation continues as follows (A and B real arrays) 

(1) The subscript for A is determined as 1 and for B as 2. 

(2) I is incremented by 1 thus it becomes 2. 

(3) The integer is converted to REAL and assigned to A(l) and B(2). 

Thus A(1)=B(2)=2.0 

5.5. STATEMENT LABELS 

In order to identify a statement a name may be attached to it. This name is called a 
statement label and permits one statement to refer to another. A label is an identifier 
— a string of letters and digits beginning with a letter. Numeric labels are not per¬ 
mitted in this implementation of ALGOL. The string may be of any length but like 
any identifier they must be unique within the first 12 characters (see 2.2). The label 
precedes the statement and is separated from it by a (or. . ). Multiple labels are 
permitted. 

Examples: 


Li: Y S A*X + B*C $ 
START: SUMX r 0 $ 

start:sumx = o $ 

Li: L2: l3: L4: x=y $ 
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A label is defined by its actual occurrence and is therefore local to the block in which 
it occurs. Of course, each label must be different from all other identifiers referenced 
within the block. See Section 8 for further discussion of labels and blocks. 

5.6. PUNCTUATION 

Each statement as well as each declaration must be terminated by a $ or a In a 
compound statement, a $ preceding the END would be redundant and may be omitted. 

The end of a line has no meaning as punctuation. There is no restriction as to the 
number of chards that may be used for forming a statement. Blank characters must not 
appear within numbers, labels, or in basic symbols (except for GO TO and REAL 2). 
However, blank characters must be used to separate adjacent symbols composed of 
letters or digits. Blank characters may be used freely for indentation or to facilitate 
reading. 

5.7. DUMMY STATEMENTS 

A dummy statement performs no operation. It can be used to place a label. 

Example: 

LIS END 
DO $ 
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6. CONTROL STATEMENTS 


< 


6.1. GENERAL 

The compiler translates successive statements in the order in which they appear in 
the program. The statements are also executed in this same order unless the pro¬ 
grammer interrupts this normal sequence with a “transfer of control.” Once the 
transfer has taken place, successive statement sequencing continues from the new 
point of reference. 

Transfer of control in ALGOL is accomplished through use of three kinds of control 
statements — unconditional, conditional, and iterative. 

6.2. UNCONDITIONAL CONTROL STATEMENTS. 

The GO TO statement causes an unconditional transfer of control to another part of 
the program. 

6.2.1. The GO TO Statement 

The GO TO statement may be written in any one of three ways: 

GO TO <designational expression> 

GOTO <designational expression> 

GO <designational expression> 

There are three forms of designational expressions, the label being the simplest. 
Example: 

l:q = SIN(SORT(Z)) s 

GO TO L S 



GO TO L interrupts the normal sequence of instructions and restarts at the state¬ 
ment with the label L. 


1 
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Alternatively the designational expression may take the form of a conditional ex¬ 
pression. 

Example: 

GO TO IF X EQL Y THEN LI ELSE L2 $ 


In this case if X equals Y, control is transferred to the statement labeled LI; 
otherwise, the transfer is to L2. 

A third form of designational expression is a SWITCH variable explained below. 
6.2.2. The SWITCH 

The SWITCH declaration names a group of alternative points in a program to which 
control may be transferred. It includes a means for selecting a given designational 
expression from the SWITCH list by means of a subscript expression (evaluated at 
execution time) with the SWITCH identifier. In effect, the SWITCH declaration 
defines a SWITCH variable which is similar to a one-dimensional array except that 
the elements are designational expressions.. 

To start with, a switch must be described by a SWITCH declaration prior to its use 
as a switch variable. The range of subscripts is from 1 to n, where n is the number 
of elements in the switch list. If a subscript expression on a switch variable falls 
outside the defined range of the switch, then the switch operation is ignored. 

The general form of the declaration is 

SWITCH <switch identified = <switch list> $ 


or 

SWITCH SWITCH1 = e v e v e 3 , - - - e n $ 

where SWITCH 1 is the name of the switch and e^-e n are designational 

expressions. 

A switch element is referenced in a GO TO statement by means of the switch 
identifier with the appropriate subscript: 

GO TO SWITCHl(Z)$ 

where I is an arithmetic expression. This expression is evaluated when the GO TO 
is executed. Control is transferred to the statement designated by element I in the 
switch list of the SWITCH declaration (counting from left to right). 

^ To illustrate, assume that it is necessary to transfer control to statements labeled LI, 

L2, L3, L4, or L5 depending on whether the value of J is 1, 2, 3, 4, or 5. This could 
be accomplished with the following GO TO statement: 

GO TO IF J EQL I THEN LI ELSE 

IF J EQL 2 THEN L2 ELSE 

IF J EQL 3 THEN L3 ELSE (* x 

I IF J EQL 4 THEN L4 ELSE L5$ 
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However, it is much easier to set up a switch to accomplish the same thing 


SWITCH S = LI* L2 * Lit L4> L5 $ 


« 




GO TO S(J) $ 


Example: 

SWITCH S r Llf IF X GTR Y THEN L2 ELSE L3> L4, T(I+6)> Lh $ 

If the switch variable S is referenced from a GO TO statement 

GO TO S(J)> 

the following transfer of control is made depending upon the value of J: 

(1) If J = 1 then control transfers to LI. 

(2) If J = 2 then control transfers to either L2 or L3 

(3) If J = 3 then control transfers to L4. 

(4) If J = 4 then control transfers to the label which 

designational expression of the switch T. 

(5) If J =5 then control transfers to L5. 

(6) If J < 1 

or 

J > 5 then no transfer is executed. 

6.3. CONDITIONAL CONTROL STATEMENT 

A conditional control statement can either cause execution of a statement or cause 
the statement to be ignored, depending upon evaluation of a Boolean expression. If 
the Boolean expression is true the statement is executed; if false, the statement is 
ignored. The conditional control statement (also known as the IF statement) has the 
form: 


depending upon X and Y. 
is the value of the (I+6)th 


IF<Boolean expression> TH EN s^ 


or 


IF <Boolean expression> THEN s^ ELSE S 2 

In the first form: if the Boolean expression is true, statement s^ is executed; if 
false, s^ is ignored. In the second form: if the Boolean expression is true, statement 
s^ is executed and statement S 2 is ignored; if false, s^ is ignored and S 2 is executed. 

Statement s^ may not be an IF statement unless it is part of a compound statement. 
There is no restriction on S 2 » 
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Example: 

IF BOOL THEN BEGIN IF C GEQ -5 THEN GO TO CHECK 
END ELSE V = V+l $ 

The following example illustrates “nested” conditional statements : 


Example: 


IF DISC LSS 0 THEN GO TO IMAGROOTS 
ELSE IF DISC EOL 0 THEN XI = X2 = 
ELSE BEGIN 

SDISC = SORT(DISC) $ 

XX = (~B+5DISC)/(2*A) $ 

X2 = (~B - 5DISC)/(2*A> 

END S 



6.4. ITERATIVE CONTROL STATEMENTS - THE FOR STATEMENT 

The FOR statement facilitates programming iterative operations. A part of the pro¬ 
gram is iterative if it is to be executed repeatedly a specified number of times, if it 
is to be executed for each one of a designated set of values assigned to a variable, 
or if it is to be executed repeatedly until some condition is fulfilled. The FOR 
statement handles any of these three conditions. 

H, 
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The general ALGOL FOR statement consists of a<FOR clause> followed by a 
statement S (simple or compound) where a< FOR clause > is: 

FOR <variable> = < FOR list> DO 

The<FOR list> is a sequence of <FOR list elements> separated by commas. 

The value of each <FOR list element> is assigned to the controlled or iteration 
variable in turn from left to right and the statement S is executed once for each value. 

All FOR list elements must be of a type compatible with the controlled variable 
which may be any type of simple or subscripted variable. 

There are three possible kinds of FOR list elements: 

<arithmetic expression> 

<arithmetic expression> STEP <arithmetic expression> UNTIL <arithmetic 
expression> 

< arithmetic expression> WHILE <Boolean expression> 

6.4.1. Simple List Element 

FOR v = < arithmetic expression> DO s $ 

or 

FOR v = e v e 2 , e 3 , e 4 , - e n DO s $ 

The controlled variable v is successively given the values of the arithmetic ex¬ 
pressions, ep e 2 , e 3 ,-e n . The statement s is executed once for each value 

of v. 

Example: 

FOR X = 1.0*1.5f2.5*3.5*7.5 DO S $ 


6.4.2. STEP - UNTIL List Element 

FOR v = < arithmetic expression > STEP < arithmetic expression > 
UNTIL < arithmetic expression > DO s $ 


or 



FOR v = e x STEP e 2 UNTIL e 3 DO s $ 

where e-^ is the starting or initial value of v 

e 2 is the increment by which v is increased algebraically 
e 3 is the limiting or terminal value of v 
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The effect of the FOR statement is probably best described by the equivalent 
ALGOL statements: 

V = El $ 

LI! IF (V-E3)*SIGN(E2) LEG 0 THEM 
BEGIN 
S $ 

V = V + E2 s 
GO TO LI 
END 


In all cases if the test fails initially, the statement S is not executed at all. SIGN 
(X) is a call on a standard function which will return the value 1,0, or —1 depending 
on whether the value of the argument X is positive, zero, or negative, respectively. 
This can be shown graphically as follows: 



The statement S may redefine V as well as the variables appearing in E2 and E3. 
Changing El will have no effect on the execution of the FOR statement as the 
initial value is assigned to V before S is executed. Extreme care must be taken 
in assigning values to V within S as this may prevent V from reaching the terminal 
value. 

The more compact form of the FOR statement 

FOR V = (El»E2»E3)DO S $ 

may be used instead of 


FOR V = El STEP E2 UNTIL E3 DO S $ 
FOR 1=1 STEP 1 UNTIL N DO S $ 

FOR I = (1»1»N) DO S 2 
FOR X = (3,2».1#9.9) DO S $ 
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6.4.3. WHILE List 

FOR v = < arithmetic expression > WHILE < Boolean expression > DO s $ 
or 

FOR v = e WHILE b DO s $ 

First v is set equal to the arithmetic expression e. If b is true, statement s is 
executed. After the execution of s, v is replaced by e and again b is tested. If, 
on the other hand, b is false, then s is skipped and control resumes with the state¬ 
ment following the FOR statement. 

This can be represented graphically as follows: 



The statement s may redefine v or the variables in the expressions e and b. 
Example (taken from Example 2 Appendix D): 

FOR B = 0.5 * (A/OLDF3 ♦ CL DR) 

WHILE ABS(B-OLOB) GTp 10**(-6)*R 
DO OLDR = B S 

In this example the FOR statement is executed until B, the square root of A, is 
accurate to six digits. 

The three forms of the list elements may be combined: 

FOR K = 1*3*5*10 STEP 2 UNTIL 20*50 WHILE B PO S S 


The statement S will be executed for 
K = 1,3,5,10,12,14,16,18,20 and 
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will then assume the value 50 as long as B is true. 
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6.4.4. Termination of FOR Statements 

The following section should be read carefully because it deals with concepts that 
are not defined rigorously in ALGOL 60. The problem is that a program written in 
UNIVAC 1106/1108 ALGOL 60 which utilized these concepts would possibly not work 
on a machine with a different version of ALGOL. The concern here is with the 
value of the iteration variable in a FOR statement when the FOR statement is 
terminated. The ALGOL 60 report leaves this value as undefined when the FOR 
statement is terminated by exhaustion of the <FOR list^ , but in UNIVAC 1106/1108 
ALGOL it is well defined, and indeed, very useful. It is because of its usefulness 
that it is documented here with the warning that it may not work on another machine. 

If the statement S has a GO TO statement leading out of the FOR statement, the 
value of the iteration variable is the same as it was before the GO TO statement 
was. executed. (This is also true in ALGOL 60.) If the exit is made from the FOR 
statement because of the exhaustion of the <FOR list>, then the value of the 
variable is that value it held last as may be determined from the equivalent ALGOL 
statements. For example, to find the first nonblank charact er of a string, either 
one of two methods could be used. 

STRING S(120)$ 

INTEGER ItR S 
I-G $ 

FOR 1 = 1 + 1 WHILE (I LS5 121 AND S(I) EQL • f > 

DO $ 

IF I EQL 121 THEN GO TO STRlNGALLBLANK 
ELSE FOUNDIT: R=RANK(S(I)) $ 

That method depends on the exhaustion of the <FOR list> , either because the 
whole string has been scanned or because a nonblank character has been found. 

In one case, the final value of I is 121 and in the other it is the index to the non¬ 
blank character. Note that a dummy statement DO $ follows the FOR statement 
(see 5.7). RANK is a standard function returning the Fieldata equivalent of the 
first character of the string. 

The second method is as follows: 

FOR 1=(1t1?120) DO IF SCI) NEQ 1 • THEN GO TO FOUNDIT * 

GO TO STRlNGALLBLANK $ 

FOUNDIT? R=RANK(S(I)) $ 


This method produces the correct value of I because an exit is made from the FOR 
statement by a GO TO statement. 
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A GO TO statement from outside a FOR statement referring to a (label within the 
FOR statement may result in an undefined situation and should thus be avoided. 


FOR I=(lflrN) DO 
BEGIN 

t 

t 

l: 

END $ 

60 TO L $ 


The above statement, GO TO L, is not allowed. 

However, it is easy to program the above logic by not using the FOR statement. 
Example: 


1 = 0 

loop; i = i+i $ 

l:. 


IF I LSS N GO TO LOOP $ 


GO TO L $ 







,4 .. 

V. 
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7. PROCEDURES 


7.1. INTRODUCTION 

A procedure in ALGOL is used to specify an independent section of a program (which 
usually represents an algorithm) that can be called or executed at different points 
throughout the same program or may be used in other programs. The operations to be 
performed are fixed, but a list of parameters makes it possible for a procedure to be 
used with varying values and/or variables. 

A procedure must be declared in the declaration part of the block in which the pro¬ 
cedure is referenced. More than one procedure may be defined at the beginning of a 
block. During program execution when a block is entered, the first statement executed 
is the first executable statement following the procedures (if any). 

The procedure declaration consists of a procedure heading and a procedure body. 

The heading consists of a procedure identifier, a formal parameter list, if any, a 
value list, if any, and specifications, if any. The procedure body follows the spec¬ 
ifications and consists of a statement, compound statement, or a block. 

Example: 

PROCEDURE NFACT (ARGI t ARG2) $ 

INTEGER ARG1» ARG2 $ 

BEGIN 

INTEGER I $ 

ARG2 = 1 $ 

for 1=1 step i until argi do 

ARG2 = ARG2+IS 

END 

In the above example NFACT is the identifier for a procedure that calculates the 
value of N factorial. ARGI and ARG2 are the formal parameters (arguments) for the 
procedure. ARGI is the number whose factorial is to be calculated, and ARG2 is the 
result after the procedure has been executed.. ARGI and ARG2 are INTEGER vari¬ 
ables. The BEGIN-END pair sets off the body of the PROCEDURE. The BEGIN — 
END pair can be dropped if the procedure body is just one statement. Since I is de¬ 
clared as an INTEGER, it is local to NFACT. 

A “call” of the above procedure would be of the form: 

NFACT (N*FACT) $ 

NFACT (NlfFACTl) $ 
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In the first call, the actual parameters N and FACT are substituted for the formal 
parameters ARG1 and ARG2. Later the parameters N1 and FACT1 are substituted 
for ARG1 and ARG2 in the same fashion. Thus procedure is a closed subroutine, 
and the call establishes a linkage to the subroutine. 

An alternate form of the parameter list allows comments to be inserted between the 
formal parameters since the comma separating formal parameters is equivalent to: 

) < string > : ( 

PROCEDURE NFACT (ARGlr ARG2) 

could be written as: 



PROCEDURE NFACT (ARG1) AND STORE RESULT IN* (ARG2> $ 


or 

PROCEDURE NFACT (ARG1) ARGl INPUT AND ARG2 OUTPUT: (aRG2) $ 


The following is a procedure for,the multiplication of two matrices: 


PROCEDURE MATMUL (A>B»C»NrMrP) $ 

REAL ARRAY A»B»C, $ 

INTEGER N»M»P $ 

BEGIN INTEGER IrJ»K $ 

REAL TEMP $ 

FOR 1=1 STEP 1 UNTIL N DO 
FOR J=1 STEP 1 UNTIL P DO 

BEGIN TEMP=Q•0 $ FOR K=1 STEP 1 UNTIL M DO 
TEMP=TEMP+BCl»K)*C(KrJ) $ 

A(I»J)=TEMP END IfJ LOOP 
END MATMUL $ 


A procedure statement calls for the execution of a procedure body. 
Given the declaration 


REAL ARRAY A1(1J10»1J7) t A2 (1 J 10»1!15)» A3C1:15»1J7) $ 


then the procedure statement 

MATMUL (A1'A2'A3»10'15'7) $ 


has the effect of multiplying the two matrices A2 and A3 and storing the results in 
Al. 


Expressions may also be used as actual parameters. Care must be taken to match 
the type and kind of each formal and actual parameter in any call. 
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7.2. VALUE ASSIGNMENT (CALL BY VALUE) AND NAME REPLACEMENT (CALL BY 
NAME) 

The above procedure NFACT makes use only of the value of ARG1 whereas it changes 
the value of the actual parameter which replaces ARG2. Thus NFACT could be re¬ 
written as follows: 

PROCEDURE NFACT (ARG1* AR62) 

VALUE ARG1 $ 

INTEGER ARGl* AR62 $ 

BEGIN 

INTEGER I S 
ARG2 = 1 $ 

FOR 1=1 STEP 1 UNTIL ARGl DO 
ARG2 = ARG2*I 

ENDS 

The procedure statement 

NFACT (NUMBER*FACTORIAL) $ 

has this effect: the value of the actual parameter, NUMBER, replaces ARGl when 
the procedure statement is encountered and NFACT does not have access to the 
location assigned to NUMBER, ARGl is known as a < Call by value> parameter. 

A value parameter must also have a type specification. 

Any parameter (such as ARG2) which is not listed in the VALUE part of the procedure 
declaration is said to be a < Call by name> parameter. The name FACTORIAL re¬ 
places the name ARG2. The value of FACTORIAL is changed as the procedure is 
executed. 

In the following examples, numeric values or expressions are used as actual para¬ 
meters: 

NFACT (15*FACT1) $ 

NFACT (J+K+M*FACT2> $ 

It should be noted that a value parameter which is an array or string identifier re¬ 
quires that the entire array or string supplied by the procedure call be copied locally 
within the procedure. As a result large amounts of working storage may be used un¬ 
expectedly when the procedure is called. All calculations in the procedure use that 
temporary copy. As an example, suppose it is necessary to find the determinant of 
a matrix without destroying the matrix. The usual computational methods for finding 
determinants destroy the matrix with which they are working. Thus the original 
matrix must be copied somewhere. Specifying the array as VALUE accomplishes 
this: 


< 
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REAL PROCEDURE DET(A) SQUARE MATRIX WHOSE DIMENSION TS:<N)S 
VALUE A»N $ W 

REAL ARRAY A $ 

INTEGER N $ 

BEGIN 

(STATEMENTS) 

DET=#•* END DET $ 

This is an example of a function procedure explained in 7.4. If an expression is used 
as an actual parameter, and if the parameter is called by name, then the expression 
is reevaluated at each occurrence of the formal parameter in the procedure. 

7.3. SPECIFICATIONS 

The <type> of all formal parameters defined by a procedure declaration must be 
specified in the specification part of a procedure heading. The format of the speci¬ 
fication part is as follows: 

<specification> <identifier list>; 

The specification may be in any one of the following forms: 

<type> 

ARRAY 

<type> ARRAY ^ 

STRING 

STRING ARRAY 
PROCEDURE 

<type> PROCEDURE 

LABEL 

SWITCH 

FORMAT 

LIST 

and< type> is one ALGOL type: INTEGER, REAL, REAL 2, BOOLEAN, or COMPLEX. 

The <identifier list> consists of the formal parameter identifiers contained in the 
procedure declaration separated by commas. 

The reason that all formal parameters must be specified is that the compiler must 
know the type and kind or class of all parameters in order to compile proper machine 
code. 

Examples: 

INTEGER If K I 

REAL X» Y » ^ 

REAL ARRAY Z I 
BOOLEAN PROCEDURE F I 
STRING S i 
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Specifications do not include information about lengths of strings, the dimensions 
and bounds of arrays, the formal parameter parts of procedures, or the contents of 
formats and lists. The actual declarations of these exist elsewhere in the program. 
The details of constructing a procedure can be illustrated by an example: 

PROCEDURE TRANSPOSE (A) ORDER:(N) $ 

VALUE N S 
ARRAY A $ 

INTEGER N $ 

BEGIN 

REAL W $ 

INTEGER I» K $ 

FOR 1=1 STEP 1 UNTIL N DO 
FOR K = 1+1 STEP 1 UNTIL N DO 
BEGIN 

W = A(I»K) S 
A (1 r K) = A(K rI) $ 

A (K f I) = W 

END 

END TRANSPOSES 


7.4. FUNCTION PROCEDURES 

Procedures which are to be used as functions (e.g., SIN, EXP) must have a type 
associated with the procedure identifier (i.e. procedure name). This type declaration 
must be the first symbol of the procedure declaration. Also for the function procedure 
to have a value associated with it, the procedure identifier must occur at least once 
as the left part of an assignment statement in the procedure body. In addition, at 
least one of these assignment statements must be executed on a given procedure call 
for a value to be assigned to the procedure. If more than one such assignment state¬ 
ment is executed within the body, then the last one executed before exiting from the 
procedure determines the value associated with the procedure. Any other occurrences 
of the procedure identifier within the body of the procedure are considered as re¬ 
cursive calls on the procedure. 

The procedure NFACT could be written so that the only parameter would be N and the 
value of NFACT would be N factorial. 

INTEGER PROCEDURE NFACT (ARG) $ 

INTEGER ARG $ 

BEGIN 

INTEGER It TEMP $ 

TEMP = 1 $ 

FOR I = 1 STEP 1 UNTIL ARG 
DO TEMP = TEMP*I$ 

NFACT = TEMP 
END NFACT S 

The call for the above procedure would be of the form 

COMMENT SET FACT = N FACTORIALS 
FACT = NFACT (N) $ 
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A function procedure is referenced by a function designator which defines a single 
numerical or logical value. NFACT(N) is a function designator which will have an 
integral value and can thus be used in any expression in which an integer variable 
could be used. 

7.5. RECURSIVE PROCEDURES 

In the example above, a new variable TEMP was used to store the intermediate result 
of the calculation of N factorial. Then the extra statement NFACT = TEMP was 
needed to give NFACT the proper value. The reason for this is that inside the pro¬ 
cedure body, whenever the name of the procedure occurs on the left-hand side of an 
assignment statement, it is a < procedure assignment > statement, that is, the state¬ 
ment which assigns the value to the procedure. Wherever else the name occurs, it is 
a call on the procedure. 

This kind of construction can be used to produce another version of NFACT which 
is even simpler to write. In fact, it requires only one statement in the procedure 
body: 


INTEGER PROCEDURE NFACT(N) $ 

INTEGER N $ 

NFACT ~ IF N EGL 0 THEN 1 ELSE N*NFACT(N-l) $ 


which is equivalent to the recursive definition 
factorial(n) = 1 n = 0 

= n*factorial (n-l) n >0 

A procedure call with the actual parameter 4 (FACT = NFACT(4)) has the following 
effect. After the subroutine linkage is set up, the procedure body is virtually changed 
to: 

NFACT=IF 4 EGL 0 THEN 1 ELSE 4* 

NFACT (3) 

NFACT(3) is another call of the functional procedure having the result that the call 
is replaced with the procedure body: 

NFACTrlF 4 EGL 0 THEN 1 ELSE 4 * 

(IF 3 EQL 0 THEN 1 ELSE 3*NFACT(2)) 

This produces another call on NFACT resulting in another change of the statement. 
This goes on until finally: 

NFACT=IF 4 EQL 0 THEN 1 ELSE 4* 

(IF 3 EQL 0 THEN 1 ELSE 3*(IF 2 
EQL 0 THEN 1 ELSE 2* (IF 1 EQL 0 
THEN 1 ELSE 1*(IF 0 EQL 0 THEN 1 
ELSE 1* (NFACT(O)))))) $ 
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The process is terminated when 0 EQL 0 occurs in the relation of the conditional 
expression. The usual expression for the factorial is obtained after the unnecessary 
parts of the above statement have been removed: 

4 factorial =4*3*2*1 

All procedures written in ALGOL may be called from within themselves. But it 
should be mentioned that recursive procedures are not always put to good use. For 
example, using the recursive properties of procedures makes a much neater looking 
NFACT, but also a much less efficient one. However, recursive procedures may 
have practical uses. For example, multiple integration programs use a quadrature 
procedure to evaluate the inner function as well as to do the integration. (See ACM 
Algorithm 233 “Simpson’s Rule for Multiple Integration,” Communications of the 
ACM Vol. 7, No. 6, June 1964.) 

7.6. EXTERNAL PROCEDURES 

External procedures are procedures whose bodies do not appear in the main program. 

They are compiled separately and linked to the main program at its execution. The 
EXTERNAL declaration serves the purpose of informing the compiler of the existence 
of these procedures, their types (if any), and the proper manner to construct the 
necessary linkages. The general form of the external declaration is: 

EXTERNAL <kind> <type> PROCEDURE < identifier list> 

where <type> is the arithmetic type or is empty, < identifier list> is a list of identi¬ 
fiers of external procedures, and 

< kind> ::= empty/FORTRAN/NON-RECURSIVE 

The words ‘FORTRAN’ and ‘NON —RECURSIVE’ have special significance only in 
this context. Procedures of kind<empty> are ALGOL procedures and are treated 
exactly like an ordinary procedure declared within the program. However, they need 
not be written in ALGOL language. Procedures of kind ‘FORTRAN’ are FORTRAN 
subroutines or functions and procedures of kind ‘NON —RECURSIVE’ are necessarily 
written in machine language. In the following paragraphs we assume a knowledge of 
the UNIVAC 1106/1108 Operating System, FORTRAN (see 7.6.2), and the UNIVAC 1106/ 
1108 Assembler (see 7.6.3). 

7.6.1. ALGOL External Procedures 

An ALGOL program which consists entirely of a procedure is nonexecutable be¬ 
cause it contains only a procedure declaration (see 7.1.). When such a program is 
compiled, the name of the procedure is marked as an entry point when the program 
is entered into the program file. Like all names in the program file the first 12 
(six under EXEC II) characters of the procedure name must define it. Such a procedure 
may be referenced from another ALGOL program as an external procedure. 
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Example: 

PROGRAM 1 

BEGIN REAL PROCEDURE DET(A»N)$ 

REAL ARRAY A $ 

INTEGER N $ 

VALUE ArN $ 

BEGIN 

COMMENT THIS PROCEDURE FINDS THE DETERMINANT OF A REAL N BY N 
MATRIX A» LEAVING A UNCHANGED AND ASSIGNING THE VALUf TO DET $ 


DET = . . . END DET 
END $ 

PROGRAM 2 

BEGIN REAL ARRAY MATRIX (1:10»U10) $ 
EXTERNAL REAL PROCEDURE DET $ 


WRITE(DET(MATRIX>10)) $ 

END $ 

A user could build a library of procedures that are useful to him and then refer to 
whichever he needed by merely declaring them as external procedures in his main 
program. 

7.6.2. FORTRAN Subprograms 

A FORTRAN subroutine or a FORTRAN function may be made available to an 
ALGOL program by the declaration: 

EXTERNAL FORTRAN < type> PROCEDURE < identifier list > 

Actual parameters in calls on such procedures may be either expressions or arrays. 
(Labels, string expressions, and string arrays are specifically excluded.) The 
FORTRAN subprogram is a subroutine or function depending on the absence or 
presence of<type> in the external declaration. A FORTRAN function is used 
like an ALGOL functional procedure i.e., as an expression. For example, if 
DET (above) were a FORTRAN subroutine: 

PROGRAM 1 

SUBROUTINE DET(ArN>D) 

DIMENSION A(NrN) 

C DET FINDS THE DETERMINANT OF A REAL NXN 
C MATRIX A AND LEAVES THE RESULT IN 0* 

C DESTROYING A, 
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PROGRAM 2 

BEGIN REAL ARRAY MATRIX(1510»l:10) $ 

REAL DETVALUE $ 

EXTERNAL FORTRAN PROCEDURE DET $ 

• 

DET(MATRIX*10*DETVALUE) S 
END $ 

7.6.3. Machine Language Procedures 

A procedure written in 1106/1108 assembler language may be referenced in either of two 
ways. The more difficult manner occurs when the procedure is declared exactly as 
an ALGOL external procedure. In this case the assembler procedure must behave 
like an ALGOL procedure (that is, it must be able to handle recursive calls). Here 
the nonrecursive case is considered. The form of the declaration for these is: 

EXTERNAL NON-RECURSIVE< type> PROCEDURE < identifier list > 

To understand how to write such procedures consider the coding produced by the 
ALGOL compiler as the result of a call in the following program: 

EXTERNAL NON-RECURSIVE PROCEDURE PUNCH $ 

INTEGER Of SJ 

PUNCH(QfS) S 

The statement PUNCH (Q,S) results in the four lines of coding: 

LMJ 11rPUNCH 

+ 2 

F 00*01*01*0 

F OOfOlfOXfS 

The second line states the number of parameters being handed through and the 
following lines provide information about each parameter in turn. The actual form 
of F is defined elsewhere in the system by a FORM directive 

F FORM 6f 3> 3r 24 

which specifies the number of bits in each field of F. (See UNIVAC 1106/1108 
Assembler Programmers Reference Manual, UP-4040 (current version). 
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The four fields of F are defined and encoded as follows: 

KIND 

00 = Expression 

010 = Array 
050 = Label 

TYPE 

01 = INTEGER 
02 = REAL 
03 = COMPLEX 
'04 = BOOLEAN 
05 = STRING 
06 = REAL 2 

REFERENCE 

00 = Constant 
01 =Name 
02 = Indirect 
06 = Result 

LOCATION 

The location field specifies the location of the parameter. Indirect addressing may 
be specified and index register 11 is usually designated in this 24—bit field. With 
this in mind, the following rules should be followed in writing an assembler pro¬ 
cedure: 

(1) The return point for a call with N parameters is (Xll)+N + 1. 

(2) The value of the procedure (if any) must be left in register A2 (and A3 for 
COMPLEX and REAL 2), absolute 14. 

(3) Registers 1-4 may not be used without saving and restoring. 

(4) Register 10 must never be destroyed. 

(5) The Ith parameter should be referenced by an indirect command, e.g., 

LA A2#*I#Xli 


If the parameter under reference is a double-word quantity (COMPLEX or 
REAL 2) its second half is in the next location, and the parameter should be 
referenced with the following command: 

DL A2t*IfXll 

(6) When using an arithmetic or a Boolean expression, the word referenced in rule 
(5) is the value of the expression. 

(7) When using either an arithmetic or a Boolean array, the word referenced in (5) 
is the address of the first word of a three-word packet which contains 

the following information: 

length of storage 
number of elements 
precision 


reference count 
address of first element 
N 

U 1 - L 1 '+ 1 
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where N is the number of dimensions of the array, Lj is the lower limit on the jth 
subscript, and Uj is the upper limit on the jth subscript. 

An arithmetic array may be referenced by 

LA A2,*N,X11 (loads address of array information) 

LA A2, 1,A2 (loads address of first word of array data) 

(8) For strings or string arrays, a negative pointer addresses a three-word packet of 
information, the second word of which is a string descriptor of the form 

F FORM i2'6 * 18 

where the first parameter indicates the length of the string, the second parameter 
the starting character position, and the third parameter indicates the address. 

A string or string array may be referenced by 

LM,XH2 A2,*N,X11 (loads address of three-word packet) 

LA A2, 1,A2 (loads address of first word of string data) 

Both arrays and string arrays are stored by columns. 

(9) The name of the external procedure must be the entry point of the assembler. 
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8. BLOCK STRUCTURE 


8.1. GENERAL 

In ALGOL 60 a program is a block. In turn, this block may contain subblocks. This 
structure serves to facilitate the construction of a program, for these subblocks may 
be checked out independently before being fitted together in the final program. 

8.2. BLOCKS 

A block consists of two parts, a heading and a body. The heading comes first and is 
identified by the symbol BEGIN or <label> : BEGIN. This is followed by all the 
declarations needed within the block: simple variables, arrays, strings, lists, formats, 
procedures, etc. The body of the block contains the statements of the block. The 
end of the block comes with the matching END to the BEGIN of the block head. 

Example: 


BLOCKi: BEGIN REAL ARRAY X(1:X0) $ 

INTEGER I $ 

FOR I=(l#lflO)DO X(I)=SIN<I> $ 

END 



The first two lines constitute the block head and the other statements constitute the 
body. The block head may appear in the body of another block. The inner block is 
then said to be ‘nested’ in the first (outer) block: 

BEGIN INTEGER N S 
READ(N) $ 

BEGIN REAL ARRAY A(i;N,i:N> $ 

END INNER BLOCK 
END OUTER BLOCK 

As a special case, the first (outermost) block of the program need not be enclosed 
in a BEGIN-END pair, although formally this is required. Instead a program may 
start with a declaration. All other blocks do require a BEGIN-END pair. The 
double use of the BEGIN-END parentheses should be noted by the user. A group of 
statements enclosed by a BEGIN-END pair forms a compound statement if the state¬ 
ment following the BEGIN is not a declaration. If this statement is a declaration, a 
new block is defined rather than a compound statement. 
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8.3. LOCAL AND GLOBAL IDENTIFIERS 

All identifiers declared within a block are called local identifiers (i.e., local to the 
given block). Any that do not occur in declarations in the given block, but that do 
appear in a block containing the given block, are called global or nonlocal identifiers 
(to the given block). Each block introduces, at the time it is entered, a new level of 
nomenclature in the sense that all identifiers declared for the block assume the 
meaning implied by the declaration. However, identifiers in blocks containing the 
given block which are not redeclared retain their old significance. When the block 
is left, all the identifiers declared within it lose all their significance. When a 
variable is declared in an outer and also in an inner block, the variable assumes the 
value last assigned in the outer block on exit from the inner block. 

Example: 

blocki: begin real x $ 

INTEGER I $ 

X=2 $ 

BLOCKSJ BEGIN REAL Y $ 

INTEGER I S 
YzX $ 

J ~ X 

END BLOCK 2 $ 

I^X 4 

END BLOCK 1 


This example has two blocks, the first with variables X and I and the second with 
variables Y and I. The I of block 1 cannot be referenced from within block 2 because 
block 2 has its own I. 

Note that an identifier such as Y in the example, existing in an inner block, can 
never be referenced from an outer block because the identifier has no meaning in the 
outer block. In particular, this means that all labels (which are defined not by 
declaration, but by occurrence) are local to the block in which they occur, and so 
cannot be referenced from outside. Thus, a GO TO statement cannot lead into the 
middle of a block. All blocks must be entered through their headings. Exit is made 
from a block either by “falling through” the bottom of the block through the last 
END, or by a GO TO statement which must lead to an outer block. 

The OTHERWISE declaration has the effect of stopping any reference to global 
(simple variable) identifiers. 

Example: 

BEGIN REAL X $ 

# 

t 

BEGIN INTEGER OTHERWISE $ 

X = 0 $ 

• 

END $ 




END $ 
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In the inner block, the variable X is an integer variable (now defined in this block) 
rather than the REAL X of block 1. If, in the above example, a third block was 
nested in block 2 and reference was made to an undeclared variable called Z, then 
Z would be defined as an integer local to the block with the OTHERWISE declara¬ 
tion. Blocks need not be nested; they can be disjoint, in which case there is no 
communication of identifiers: 

BEGIN REAL •••$ 


END $ 

begin INTEGER...® 

END $ 

The programs may be written by two different people, checked out separately, and 
then joined together in this manner with absolutely no problems about conflicting 
use of identifiers. 



8.4. THE LOCAL DECLARATION 

Since the 1106/1108 ALGOL 60 compiler examines the source language only once, it 
must never meet an identifier without knowing what the identifier represents. For 
example, suppose P and Q are procedures declared in the same block and in the body 
of P is a call to Q. The declarations could be arranged so that Q is first: 

BEGIN PROCEDURE Q $ 

BEGIN 


END Q S 
PROCEDURE P $ 
BEGIN 
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But if Q also calls P (P and Q are mutually recursive) then clearly it is impossible 
to put them both first. The LOCAL declaration must be used to resolve such forward 
references (using an identifier before it is defined): 


begin local procedure p $ 

PROCEDURE Q $ 

BEGIN 

P $ 

• 

END Q $ 

PROCEDURE P $ 

BEGIN 

• 

Q $ 

END P S 


The allowable uses of the LOCAL declaration are: 


local label ... 

LOCAL PROCEDURE ... 

LOCAL < type > PROCEDURE . .. 
LOCAL SWITCH ... 

LOCAL FORMAT ... 

LOCAL LIST ... 


The only relaxation of this rule is that a label serving as the object of a GO TO 
statement or in a SWITCH declaration need not appear in a LOCAL declaration; 
instead it is assumed that it will eventually be defined in the block. Thus the 
GO TO statement or SWITCH declaration has the same effect as a LOCAL declaration. 
However, if the label is already defined in an outer block of the given block (either 
by occurrence, LOCAL or SWITCH declaration, or as the object of a GO TO statement) 
then that definition of the label is assumed for the inner block. 

To further illustrate the concept of local and global identifiers consider the block 
displayed in Figure 8 — 1. The variables I, J, K, X, Y, Z and labels LI, L2, are 
local identifiers in block 1. Only I, K, X, Y, Z, LI, L2 will be global to block 2, 
while J is redefined and local in block 2 along with L, M, U, V. In block 3, I, Y, Z, 
LI, L2 from block 1 are global along with J, L, U, V from block 2. K, M, N, W, X, 
and L3 are local in block 3. Consider the statement, L3. The global variable Y will 
be replaced by the sum of the local variable X with the product of the global variables 
V, Z. The statement L4 in block 4 looks the same as L3 in block 3. However, the 
variable X in this case refers to the variable X in block 1 rather than the variable X 
in block 3; hence the effect of the statements will be different. 
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In block 5, the statement labeled L5 has an erroneous GO TO L4 after the word 
THEN The label L4 is defined in block 4 and has no meaning within block 5 since 
the blocks are disjoint. However, the GO TO LI is correct and will send control to 
the statement labeled LI in block 1. This in effect will cause the program to re¬ 
enter block 2. 


( 


Block 1 


INTEGER I*J*K5 
REAL X»Y» Z * 


LI! 


END t 
L21 


END* 


BEGIN 


BEGIN 


INTEGER J*L*Mf Block 2 

REAL U» V* 

BEGIN 

Block 3 

integer K»M*N5 

REAL W * X * 

L35 Y=X+V*Z5 


END i 

_. 

BEGIN 

Block 4 

BOOLEAN Bl* B25 

integer P* Q5 

REAL Zl> Z2* 
m: Y=X+V*Z5 


END t 



Block 5 

INTEGER V* Z* 

REAL I* M5 
BOOLEAN 815 

L5J IF Bl THEN GOTO L4 ELSE 
GOTO LI 5 


Figure 8 — 7 . Local and Global Identifiers 
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9. INPUT/OUTPUT 


9.1. GENERAL 

Input and output operations are accomplished in UNIVAC 1106/1108 ALGOL by means of 
library procedures.. The two main one^, READ and WRITE, are more flexible than 
ordinary procedures written in ALGOL because the number of parameters in an actual 
call or even the order of the parameters is not rigidly specified. The general form of 
I/O call is: 

<1/0 procedure> (<device>, <format identifierr> , <modifier list>, <parameter list> , 
<actual label list> ) 

where <1/0 procedure > is READ or WRITE ; 

< device > specifies the external medium; 

< format identifier > is the name of the format specifying output editing or 
card layout for input; 

<modifier list> specifies parameters whose action is to output markers in 
the information which later may be used for positioning; 

<parameter list> is a list of I/O variables and expressions; 

<actual label list > specifies where control will be transferred in case of 
contingencies. 

The two other important I/O procedures, POSITION and REWIND, are concerned ex¬ 
clusively with magnetic tape and tape-simulated drum operations. 

9.2. FREE-FORMAT OUTPUT ON PRINTER AND CARD PUNCH 

Arrays and values of expressions can be printed by simply calling the WRITE procedure 
in the following way: 

WRITE(PRINTER, v!,v 2 ,..., v n ) 

where each Vj is an expression or an array identifier. In a similar manner, if the output 
is to be punched, the call is: 

WRITE(PUNCH, v v v 2 , . . . , v n ) 

PRINTER and PUNCH are device names which specify the output unit to be used. If 
no device is named, PRINTER is assumed: 


WRITE( V1 , v 2 , . . . , v n ) 

In the following description the word ‘print* v is used in discussing the action of 
WRITE, but the word ‘punch* may be substituted. Significant differences between the 
two devices are noted. 

The action of WRITE is to evaluate the expressions in the order they are listed in the 
call and print their values in the following manner: except for string expressions, 10 
values are printed on each line (6 per card if punching). Each value occupies a field 
of 12 character positions or columns. If the actual parameter is an array it is decom¬ 
posed by columns. Each occurrence of WRITE begins printing on a new line. 
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Examples: 

REAL ARRAY A(1510) $ 

# 

WRITE(PRINTER * A)$ 

acts the same as 

WRITE*PRINTER*A(l)*A<2)* ...»A(10)) * 

For multidimensional arrays the decomposition is such that the leftmost subscript varies 
most frequently. Thus the sequence 

BOOLEAN ARRAY A <1 !2* 1 J2* 1 :2) $ 

WRITE(PRINTER*A) $ 


acts like 

WRITE(PRINTER*A(1*1*1)* A(2*1*1> *A(1*2*1),A(2*2*I)* 

A(l*l*2> * A(2*1*2) *A( 1*2*2)t A (2*2*2)) $ 


The expression or array element is printed in a form consistent with its type. 


Type 

Form 

INTEGER 

Integer form, right justified in the field. Includes a leading 
minus if the expression is negative. Leading zeros are not 
printed. 

REAL and REAL 2 

Both types are printed right justified inthe form X.XXXX,±NN 
for REAL and X.XXXX,±NNN for REAL 2, where NN and NNN 
represent the power of ten, preceded by the appropriate sign. 

A negative number is preceded by a minus sign. 

BOOLEAN 

Either TRUE or FALSE is left justified in the field. 

COMPLEX 

The real and imaginary parts are each given a field as for REAL. 
Thus, only five expressions of type COMPLEX can be printed on 
the same line. 


Strings are a slight exception in that they always start a new line.* Whenever a string 
expression occurs as a parameter, the previous expressions, whether their number is a 
multiple of 10 or not, are printed. Then the string is printed on a new line. The next 
parameter will be printed on the following line. For example, if A and B are REAL 
and have the values 7.0 and 0.004 respectively, then the statement 

WRITE(*A=**A**B=**B* f A OVER B f *A/B) $ 




*See Appendix FI for differences in printing under EXEC IT. 
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would produce the following lines on the printer:* 


A= 

7.000Q* 00 

4.000Q»-Q3 
A OVER B 
1•7500» 03 


Example: 


INTEGER ARRAY A(1U5) $ 
BOOLEAN ARRAY B(lJ2*l:2) $ 
INTEGER I t J $ 


FOR I=(1»1»15)D0 A(I)=1-3 $ 

FOR 1= (1 r 112) DO FOR J=U»1»2) DO B<I»J)=I GEQ J $ 
WRITE(’VECTOR A»»A»»MATRIX B*»B> $ 


produces the following output: 


( 


VECTOR A 


-2 

-1 

0 

1 

8 

MATRIX B 

9 

10 

11 

TRUE TRUE 

FALSE 

TRUE 



2 

12 


12 12 12 12 12 


3 

13 


12 


9.3. FREE-FORMAT INPUT FROM CARDS 

For reading punched cards in free-format mode, the procedure READ is called with 
device CARDS: 

READ(CARDS, vj,V2» • • •, v n ) 

where each vj is a variable or array identifier. Again, if no device is written, CARDS 
is assumed: 

READ(vi, V 2 » • • • » v n ) 

This procedure reads the next input card and scans the information on it. Each con¬ 
stant on the card is assigned to the next parameter in the order it appears in the call. 



♦See Appendix F2 for differences in output operation under EXEC II. 
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Arrays are handled in the same manner as for WRITE. Constants on the cards must be 
punched in the same form as they appear in the ALGOL source language (see 2.3) with 
the exception that a comma(,) may be used in place of the ampersand (&). Constants 
on a card are delimited by one or more blanks and by the end of the card. Therefore, 
there is no restriction as to where a constant may appear on the card. If there is not 
enough information on the first card to satisfy the READ procedure, a second card is 
read, and so on. Any information not taken from the last card is lost (i.e., the next 
call to READ reads a new card). An * punched on a card causes the remainder of the 
card to be ignored. Otherwise, all 80 columns of the card are scanned for information. 
An example of a call on READ: 

REAL A>B $ 

INTEGER COUNTER $ 

• 

READ(CARDS * A # B * COUNTER) S 

Data Card 

-7,2 # 099 362236 

assigns the values —7.2 to A, .099 to B and 362236 to COUNTER. It is not necessary 
for the type of the constant on the card to match the type of the actual parameter. 
Transfer functions are used automatically if such functions are defined (see Appendix 
B). 

9.4. LIST PARAMETERS - THE LIST DECLARATION 

A LIST declaration associates a set of ordered expressions with a LIST identifier. 
The identifier used in the expressions must be defined prior to their inclusion in 
LIST declaration. Thus, the other declarations should precede the LIST declaration. 

A LIST may include three kinds of elements: 

■ Expressions 

■ Array identifiers 

■ FOR clauses 

Example: 

REAL ARRAY AdJNflJN) $ 

INTEGER ItJ $ 

LIST LI (FOR I=(lfl*N) DO FOR jr(ld*N) DO A(IrJ)) S 

• 

READ(LI)$ 

WRITE(Ll) $ 

This example uses the same LIST for both input and output. Expressions in a list 
which are to be within the scope of the FOR statement are surrounded by parentheses 
and not by a BEGIN-END pair. 
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Another example utilizing LIST: 


REAL X t XY $ 

INTEGER WIDDLE $ 

BOOLEAN ARRAY Q UUO) $ 

STRING BEAN (36*5) $ 

INTEGER I $ 

LIST L(X*0'X'XY»FOR 1 = (1»1r5)DO(0(I> »BEAN(36*(I~1) + 1,36))» 
SORT(WIDDLE**3)) $ 


The LIST L defines the following sequence of expressions: 



1.0 X XY Q(1) BEAN(1»36) Q(2) BEAN(37*36) 0(3) BEAN(73>36) 
Q(4) BEAN(109f36) Q(5) BEAN(145r36) SORT(WIDDLE**3) 

Besides being allowable as parameters to READ and WRITE, lists may also be used 
as parameters to MAX and MIN. All of the elements in the list are treated as call-by¬ 
name parameters and are not evaluated until they are referenced. 

One precaution is required when using a LIST. Do not use a list containing an iteration 
variable within the scope of an outer iteration using the same variable as in the following: 

INTEGER I $ 

ARRAY ARGGGHA (1JI0) $ 

LIST LISP(FOR 1=10 STEP -1 UNTIL 1 DO ARGGGHA(I)) $ 

FOR 1=(147)DO 
BEGIN 

WRITE (LISP) $ 

END * 

In this case the value of I would be changed in the course of the write statement 
causing an infinite loop. 
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9.5. FORMATTED OUTPUT - THE FORMAT DECLARATION 

It is often desirable to print or punch information in a specific manner rather than to 
accept the positioning automatically provided by the WRITE procedure. 

The FORMAT declaration, which is included with the other declarations at the beginning 
of the block, provides a means of specifying how a printed page (or punched card) is to 
be formatted. A format is a set of specifications that can be interpreted by the I/O 
procedures to control the editing of information. The format takes this form: 

FORMAT <identifier>(<format specifications^*) 

The following lines specify two formats, FEIN and FTWAIN: 

FORMAT F£IN(Xl0fD7f2*X5*Rl7t8>Al t l )* 

FTWAIN(B6fS10#I5rX2#Tl4t9rA3>E)$ 

A single format identifier may be included as a parameter in a call on WRITE, but its 
position in the call does not matter. For example, the two following calls in WRITE 
are equivalent. 

REAL At8 S 

♦ 

WRITE(PRINTERtFEIN*ArB>$ 

WRITEtA*B*FEIN)$ 

A format specification consists of a series of editing and/or nonediting codes separated 
by commas. An editing code corresponds to a value to be printed and specifies how the 
value is to be edited. A nonediting code controls printing, spacing or insertion of blanks 
or constants into the print line. The action of WRITE, when a format is being used, is 
to pair each output expression with its corresponding editing code in the format. Non¬ 
editing codes are executed as they are encountered. 
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9.5.1. Nonediting Codes 

In nonediting codes listed below, s and t are unsigned integers and w indicates the 
number of character positions. Two conventions are that As is the same as As.O 
and A is the same as A0.0. For phases that require a t, both s and t must be less 
than 64. 


FORMAT CODE 

ACTION(PRINTER) 

ACTION(PUNCH) 

As.t 

Activate 

Prints the line just 
edited. Skip s lines 
before printing and 
t lines after. 

Punches the edited 
line into a card, 
s and t are ignored. 

Es 

Eject 

Ejects the page to 
logical line s-1 if 
s-1 is below margin 
on current page. The 
next line to be printed, 
if it specifies Al.t, 
prints on line s. If s-1 
is on the current page 
and is below the cur¬ 
rent line, Es skips to 
s-1 and the page is not 
ejected. 

Ignored 

Xw 

Expunge 

Skips the next w char¬ 
acter positions (i.e., 
inserts w blanks in the 
line). 

Same 

< any 
string 
not con¬ 
taining a 
“single 
quote” 
sign (an 
apostrophe) 

Insert 

literal 

Inserts the string 
enclosed in quotes 
into the line. 

Same 


Table 9—1. Output Nonediting Codes 
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9.5.2. Editing Codes 

The editing codes are the same for both printing and punching. Each code acts on 
one value to be printed. The w specifies the field width (that is, the total number 
of character positions to be used in the editing, including signs, decimal points and 
comma). If w is too small to do the proper numeric editing, two asterisks are printed 
and the value is edited according to R12.5. Any editing done beyond the edge of the 
output medium (132 or 128 columns on the printer, 80 columns on the card punch) is 
lost. The d is interpreted differently for different codes. In format codes that use no 
d (as Sw), w must be smaller than 132. In codes that include d, w must be enough 
larger than d to include at least the decimal point, a sign, and the exponent with its 
sign if there is one. 


FORMAT CODE 

ACTION 

Bw 

Boolean 

Prints TRUE or FALSE in the field, left justified. If the field 
is too short as much as possible is printed, e.g., B1 results in 
TorF. 

Dw.d 

Decimal 

Prints a decimal number with d places after the decimal point, 
right justified in the field, and with a leading minus sign if 
negative. 

Iw.d 

Integer 

Prints an integer number right justified in the field with a 
leading minus sign if negative. The integer is printed to the 
base d where d=0 and d=10 are equivalent. In the latter cases 
the .d can be omitted. Range of d: 2 < d < 10. 

Rw.d 

Real 

Prints d significant digits of a REAL or REAL 2 variable in 

the form X.X.X, NN for REAL or X.X.X, NNN for 

REAL 2. A leading minus is printed if the number is negative. 
If the power of ten, NN or NNN, is negative it is preceded by £ 
minus sign. Note that w must always exceed d by 6 or more (7 
or more for REAL 2) to allow for ±,, ±NN or ±., ±NNN. 

Sw 

String 

Prints the first w characters of a string left justified in the 
field. If the string is shorter than w characters, the rest of 
the field is space filled. 

Tw.d 

Truncated 

Prints a number with a decimal point right justified in the 
field. Only the first d significant digits are printed; a leading 
minus sign is printed if negative. 


Table 9 — 2 . Output Editing Codes 


The type of the actual parameter is transferred to the type demanded by the editing 
code in any case for which there are transfer functions defined. A complex number 
is edited using two successive editing codes, the first for the real part and the 
second for the imaginary part. 
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The following examples illustrate the use of various editing codes: 

REAL A»B $ 

FORMAT Fl(X2»D7.2»X5rR17.8»Al.l) $ 


A=72.474 $ 

B=-. 12345678 $ 
WRITE(F1*A»B) $ 


The above coding would print A and Bias follows:* 


FI <X2r D7.2 X5» R17.8> Al.l) $ 



1 blank line 


imbb 72.47 bbbfrb b bb -1.2345678»-01 

1 blank line 


If FI above were 

F1(»A=»» D7.2r X5* *B='» R17.8» A2.1) 


~r 





2 blank lines 


then the printout would be 

^^ __ 

A—trb72• 47 bbbbb B~ bbb—1.2345878»—01 

1 blank line 


To compare the three real codes D, R and T, suppose 


REAL A $ 

FORMAT OK(D1Q.4»R10.4»T10.4»A1> $ 
A=0.001107 $ 

WRITE(A»A»A»OK) $ 


The printed line would then be as indicated below: 


OK (010.4' R10.4» T10.4» Al) $ 


7 r^\‘ 


1 blank line 



bb b bb ,0011bl»107r-03 Ebb,001107 



* 7 > is used to rep res ent a space for documentation purpo ses only, it is not a printabl e 
character . 









UP-7544 



9 

10 

Rev. 1 

UNIVAC 1106/1108 ALGOL 


SEC TION: 

PAGE: 


9.5.3. Repetition of Editing Codes 

A single editing code (or a group of editing codes) can be used a number of times 
without actually repeating the code itself in the format statement. Three different 
methods can be used: 

■ Simple repetition — used when the number of repetitions required is known. 

■ Variable repetition — used when the number of repetitions depends on data. 

■ Indefinite repetition — used when the number of repetitions is indeterminate. 

9.5.3.1. Simple Repetition 

An editing code may be repeated by prefixing it with an unsigned nonzero integer 
constant which specifies how many times that code is to be repeated. 

Example: 

FORMAT FI(3R16#8* A1) % 

is equivalent to 

FORMAT F1(R16#8*R16«8*R16#8*A1) S 

It is also possible to repeat a group of editing codes by enclosing them in paren¬ 
theses and preceding this parenthetical group with an unsigned nonzero integer 
constant indicating the number of repetitions of the group. There is no limit to the 
depth of nesting, editing codes or groups of codes. 

Given the declaration 

BOOLEAN ARRAY BOOL<117*14) $ 

the following format would permit printing the array elements with only one row per 
line 

FORMAT FORM (7(6B7*A1)> $ 

9.5.3.2. Variable Repetition 

A second type of repetition is the variable repeat. Instead of an integer, an arith¬ 
metic expression or Boolean expression enclosed in colons specifies the number 
of repeats. The Boolean values TRUE and FALSE are equivalent to one and zero, 
respectively. 

Example: 

INTEGER ARRAY A(1IN*1IM) $ 

format fcn:<:m:(ri6.8)*ai)>* 

would print the array one row per line (so M should be less than 9). The expression 
(N or M) is evaluated every time the variable repeat is encountered during the format 
scan. If N or M have a value of zero or less, the group of format codes under control 
of that repeat expression is skipped. Note that in this type of repetition, the codes to 
be repeated must be enclosed in parentheses even if there is only one such code. 
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9.5.3.3. Indefinite Repetition 

A final variant of editing code repetition is the indefinite or unlimited repeat. This 
is accomplished by enclosing a group of format codes in parentheses without pre¬ 
ceding this parenthetical expression with an integer constant. The innermost 
parenthetical group that is not preceded by an integer constant is unlimited and will 
be used repeatedly until the output list is exhausted. 

Given: 

FORMAT ONANDON (El>'VECTOR B''Alt(D7,2tAl)) $ 

REAL 2 ARRAY $ 

then 

WRITE(B*ONANDON) $ 

will produce the following on a new page 

VECTOR 8 

XXXX.XX 

XXXX.XX 

XXXX.XX 

XXXX.XX 

As an extension of this feature note that the parentheses surrounding an entire 
format are indefinite repeats. If there are more values to print upon reaching the 
end of the format string the whole format is repeated. Writing stops when the two 
following conditions are satisfied: there are no more values to be edited, and the 
right parenthesis of an indefinite repeat is encountered. Any editing code en¬ 
countered when there is nothing more to be edited is treated as Xw. Nonediting 
codes are honored. 

Example: 

REAL At8 S 

FORMAT Z(5D7.2rA2.3»’ABOVE IS DERUG l»»Al> $ 

A = 17.00 $ 

B = -18.00 $ 

WRITE (A»A/2»B»B/2*Z) $ 

produces 

TO17.QQ BTO8.50-B-18.00BB-9.00 
ABOVE IS DEBUG 1 

A common error to watch for is the omission of an activation code within an 
indefinite repeat (or within a format declaration in general): 

FORMAT QTE(E»(8R16.8).Al,2) 
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would skip to the top of the next page but would not print anything. This error 
could be corrected as follows: 

FORMAT QTE(Ef(8R16#8*AX#g)) 

In this format, E is equivalent to EO which has the effect of skipping to the bottom 
line of the current page. EO followed by A1 will print on the top line of the next 
page. 

Format codes to the right of an indefinite repeat or unlimited group can never be 
reached. The following output format: 

FORMAT F0RM9(X5fI5>D1Q*3*A1>(I5>4DlQ#3rAi>*X10* 15*A1 f 2) $ 

used with a WRITE statement will cause the first two values to be printed ac¬ 
cording to 15 and DIO.3. Since the inner parenthetical group is not preceded by 
an integer, printing will continue according to specifications within the parentheses 
until the output list is exhausted. The last three codes will never be reached. 

The following example illustrates how versatile formats and lists can be. It prints 
an (N,M) array in a real format: 


fcDALGr'SIT 
CYCLE 000 
SI 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 


TEST rTEST 

COMPILED BY 1203 0005 CM 02/14/70 AT 10:37:43 
LI 

INTEGER Mr Nr Hr I2r Ir J $ 

REAL R $ 

REAL ARRAY A<1S50'1S50) $ 

FORMAT ALL(X11r SENTIER(MIN(11+9 r N))-Il + l: ( f C0L* r13rX6)rA1r:MS 
(* ROW 1 r13r SENT1ER(MIN(I1+9#N))-11 + 1:(R12.5)rA1)rA2) $ 

LIST HAIR (FOR Il=lrl0rN) DO FOR 12=<I1r1rMIN(I1+9rN)) DO I2r 

FOR J=(lrlrM) DO (Jr LOR I 2=(11r1rMIN(11 + 9rN))DO A I2'J))))$ 
R = 0.0$ 

M = 24$ 

N = 18$ 

FOR I = (lrlrN) DO 
FOR J = (lrlrM) DO 


B1 

13 BEGIN 

14 R = R 4 1.0 $ 

15 A(IrJ) = R 

El 

16 END $ 

17 WRITE (ALL r HAIR) $ 

START COMPILATION TIME IS 10:37142 

END COMPILATION PHASE 1 10:37:43 

END COMPILATION PHASE 2 10:37:43 

FI 

COMPILATION COMPLETE 
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The WRITE statement using format ALL and list HAIR has the effect of printing 
the elements of a real array by rows with ten elements per line. The output has 
this form: 


SXQT 

B 













COL 1 

COL 2 

CnL 3 

COl 4 

COL & 

COL A 

COL 7 

COL 8 

COL 9 

COL 10 

ROW 

1 

1*0000•♦oo 

2.5000**01 

4.9000.*0l 

7•3000i*n | 

9.70009*01 

1 .2100 » *02 

1.4500.*02 

1.6900**02 

1.930°»*02 

2.1700,*02 

ROW 

2 

2.0000.♦00 

2.6000.*01 

5•OOqO.* 0l 

7.4000 .*f5l 

9.8000t*0l 

1.2200,*o2 

1.4600**02 

1o 7 000.*02 

1•9 4 qO.*02 

2*18009*02 

ROW 

3 

3*0000*♦OO 

2,7000.*01 

A.1OqO.*Q1 

7 #5000 »*nl 

9.9000.*0l 

1,23qo.*q2 

1.47609*02 

1* 7 100 **02 

1.9Sq0.*02 

2 * 1900•*02 

ROW 

4 

4,0000.*00 

2,8000.*01 

5.2000»*01 

7.6000 9*nl 

1.0000i*02 

1.24009*02 

1.4800.*02 

1» 7 200.*02 

1.96qQ»*02 

2.2000**02 

ROW 

% 

5•0000 *♦OO 

2,9000 »*01 

5.3000 »*0l 

7.7000 # *ri 1 

1.0100,*02 

1,2Sqo **02 

1.4900.*02 

1* 7 300.*02 

5 *97oO.*o2 

2.2100.*02 

ROW 

A 

A•0000 * *00 

3.0000.*01 

4«40nO»*ol 

7 « 8 000i*n1 

1.0200 ,*02 

1.2600,*02 

1 .5000 ,*02 

I• 7 400,*02 

1*9800,*02 

2*2200,*02 

ROW 

7 

7.0000.*00 

3,1OQO,*o1 

5.5000 »*Ql 

7.90009*01 

1.0300,*02 

1«27oo.*o2 

1.5100,*02 

1« 7 500.*02 

1*99q0»*02 

2,2300,*02 

ROW 

e 

6*0000.♦OO 

3.2000.*01 

5*6000.*o1 

8.0000•♦o1 

i.0400,*02 

l.28 qo»*o 2 

i.5200**02 

1* 7 600»*02 

2 * 000° » *02 

2.2400**02 

ROW 

9 

9*0000.♦OO 

3.3000 »*0l 

5»7000.*0l 

8* 1000, *o1 

i.0500,*02 

l.29 oq,*02 

1.5300.*02 

1*7700»*02 

2*0100 »*Q2 

2.2500»*02 

ROW 

10 

1.0000.*01 

3.4000.*01 

5.8000 »*0l 

8.20009*01 

1.0600**02 

1«30q0»*q2 

1 .5400 »*02 

1« 7 8oo **02 

2 *0200 * *02 

2*2600 »*02 

ROW 

1 I 

1•1000.♦01 

3.5000 **0l 

5»9000.*0l 

8.3000 9*o1 

1 .0700 »*02 

1*31q0»*q2 

1.55QO,*o2 

1.79oo»*Q2 

2 *03oO.*02 

2*27009*02 

ROW 

12 

1*2000»*0l 

3•AQOO »*01 

6•0000 » *0l 

8.4000i*pl 

1.0800.*02 

1 .3200 **02 

1.5600**02 

l*8000**02 

2»0400**02 

2.28009*02 

ROW 

13 

1*3000•♦01 

3.70009*01 

6.1000.*0l 

8.5000.*pl 

1.0900.*q2 

1•33qq,*q2 

1.5700**02 

1»8l00»*02 

2•05Q0.*02 

2.29Q0»*02 

ROW 

14 

1*4000.*01 

3.8000 » *01 

6.2000.*0l 

8.6000.*o1 

1«1OQQ t *02 

I.34qq,*02 

1.58009*02 

1.8200**02 

2.0600**02 

2.3000**02 

RON 

16 

1.5000.*01 

3 « 9000 »*01 

6.3000i*01 

8 « 7000i*o1 

1.1100**02 

1,3Sqo.*q2 

1.59009*02 

l.8300.*02 

2 *07q0 »*02 

2.31009*02 

ROW 

16 

1.6000.*Q1 

4.00009*01 

6.4000»*0l 

8.8Q00 e*gl 

1.1200,*02 

1,36qo.*02 

1.6000**02 

1.8400**02 

2 *08oOi* q2 

2.32009*02 

RON 

17 

1*7000.*01 

4*1000.*01 

A * &OqO » *0l 

8.9000.+01 

1.1300**02 

1,37q09*q2 

1.A100**02 

1.8500.*02 

2«Q9oO**02 

2*3300**02 

RON 

11 

1•8000 »*0 1 

4,2000**01 

A . 6QqO * *01 

9.0000.*ol 

1.1400**02 

1«38qo,*o2 

l.A200i*02 

1.8aoO»*02 

2* i OQO # *02 

2*3400.*02 

ROW 

19 

l*9000.*01 

4,3000 »*01 

A.70Q0.*0 1 

9*1OQO s *o1 

1.1500**02 

1.3900.*02 

l .6300i*02 

1.®7009*02 

2*11Q0**Q2 

2,3500.*02 

ROW 

20 

2*0000.*01 

4.40009*01 

A.aooo.toi 

9 • 2000 . *(j 1 

1.1600,*Q2 

1 ,4000 »*Q 2 

l.64009*02 

1.8800**02 

2* 1200 9*02 

2.3600**02 

RON 

2! 

2*1000.♦01 

4.5000.*01 

A.9000.*0l 

9 # 3000 » *o1 

l.1700,*02 

1.4100»*02 

1.6500.*02 

1.8900.*02 

2.1300.*02 

2.3700.*02 

ROW 

22 

2*2000.♦Ot 

4 . AOQO.*01 

7•QOqO» *01 

9 » 4(300 . *p 1 

1.18Q0,*q2 

1,42qo.*q2 

1.6600 9*02 

1,9 00 o,*o2 

2»!4oO.*o2 

2.38Q0.*02 

RON 

23 

2 * 3000.♦Q1 

4.7Q00 * *01 

7.1OQO.*01 

9.sqoo»*6i 

1•1900 , *02 

i,43 oq.*q2 

1.67 QO.*02 

1.9l00»*02 

2.1SqO * *02 

2.3900,*Q2 

ROW 

24 

2.4000.*01 

4,©OQO»*01 

7.2000 »*01 

9.AQOO * *01 

1 .2000**02 

1,44 0 0 **02 

1.6800»*02 

1 .*200»*02 

2*16q0 # *q2 

2,4000.*02 



COL 11 

COL 12 

COL 13 

COL 1 4 

COL IS 

COL 16 

COL 17 

COL 18 



ROW 

1 

2.4100.*02 

2,ASqo.*02 

2.®9oO.*o2 

3. S300.*(j2 

3.3700,*q2 

3.A1QQi*q2 

3.8500.*02 

4 *0900 » *02 



Ron 

2 

2.42Q0• # 02 

2.A6qQ»*02 

2.9000**02 

3*1400,* 0 2 

3.3800.*02 

3.A2qO««q2 

3.8600**02 

4.1000**02 



Row 

3 

2.4300.*02 

2.67qo.*o2 

2.9J00.*02 

3.1 500 . *(j2 

3.39QQ»*Q2 

3.A30O.*q2 

3.8700.*02 

4.1100 »*02 



ROW 

4 

2.4400.*02 

2 « A8qq.*Q2 

2.9200.tQ2 

3*1A00»*q2 

3.4000.*02 

3« A4qq,*q2 

3.8800.*02 

4.1200**02 



ROW 

S 

2.4500.*02 

2 «A9qo »*02 

2.9300.902 

3*1700.*q2 

3.4100.*02 

3 » ASoq * *02 

3.8900,*02 

4.1300.*02 



ROW 

A 

2.4600.*02 

2.7000**02 

2.94q0.*02 

3.1800.*p2 

3.92Q0i*02 

3,AAqq ®*q2 

3.9000**02 

4.1400**02 



ROW 

7 

2.4700**02 

2.7100**02 

2*9SoO. * 0 2 

3•l900 * *q2 

3.4300**02 

3,A7qq.*o2 

3.9100,*02 

4.15009*02 



ROW 

S 

2.48qq,*Q2 

2*7200**02 

2 @ 9 AqO 9 *q2 

3.200Q»*q2 

3.4400**02 

3.A8qo»*02 

3.92009*02 

4.16Q0,*02 



ROW 

9 

2.4900**02 

2*73qo * *02 

2« 97qO 9 *q2 

3.210Q«*o2 

3.4500.*02 

3,69oQ9*q2 

3,9300.*02 

4,1700**02 



ROW 

10 

2.5000.*02 

2.74qq.*q2 

2 *98q 0 * to2 

3.2200i*n2 

3.4600.*02 

3.7000**02 

3.9400»*02 

4*1800**02 



RON 

11 

2 * 51QO•*02 

2 * 75qq » *Q2 

2•94q0 9 Yq2 

3*23009*^2 

3.4700.*02 

3.7100»*02 

3.9500**02 

4*i?OO»*02 



ROW 

12 

2.5200.*02 

2.7600.*02 

3.00009902 

3«240Q»*n2 

3.4800.*02 

3,72qq»*o2 

3.9600**02 

4*2000.*02 



ROW 

13 

2 »53Q0 » *Q2 

2.77qq•*02 

3 * 0100i*02 

3.25009*o2 

3.4900.*02 

3.73Q0**02 

3.9700**02 

4•2I00 » *02 



ROW 

14 

2.S4Q0,*Q2 

2.76qO.*02 

3 »02oO9 *q2 

3«2A00i*p2 

3.SQOO.*Q2 

3,74qq.«q2 

3.9800•*02 

4.2200.*02 



ROW 

15 

2*55qo.*02 

2 « 79qq * *02 

3 » 03qO,*q2 

3.2700.*q2 

3*5100.*02 

3,75qo,*o2 

3.9900**02 

4.2300,*02 



ROW 

1A 

2.5600**02 

2.8000b*q2 

3.0400»t 0 2 

3.2800i* 0 2 

3.5200 9*fl2 

3 * 7Aqo * *q2 

4.00009*02 

4.24Q0* *Q2 



ROW 

17 

2.57qo»*Q2 

2.8Joo«*Q2 

3.05oO § *02 

3*2900»*p2 

3.5300**02 

3.77oO.*02 

4.0100**02 

4.2500**02 



ROW 

Ifi 

2*5800»*02 

2.8200**02 

3 . 0600 9 *02 

3.3000» *q2 

3.54Q0»*02 

3,78oQ.*02 

4.0200**02 

4*2600**02 



ROW 

19 

2.59Q0**Q2 

2 « 83q0.*Q2 

3.07oO 9 *02 

3.3 t 00 9 *o2 

3.5500 » *q2 

3.79qq,*o2 

4.0300»*02 

4.2700**02 



ROW 

20 

2 * 6 0 00 * *02 

2.®4Q0 e *02 

3*0800 p *02 

3.3200 f*o2 

3.5600 ,*Q2 

3,80Q0,*02 

4.Q400,*02 

4*2800**02 



ROW 

21 

2.6l00**02 

2»85qO»*o2 

3.09q0•*02 

3 . 3300 t *g2 

3.5700**02 

3.61qo **q2 

4.0500,*02 

4.2900 » *02 



ROW 

22 

2.6200 »*02 

2.8600.*02 

3*1OQO » *C2 

3 . 3400 » *q2 

3,S8QQ.*o2 

3,8200**02 

4.Q6QQ»*02 

4»3OOO**02 



ROW 

23 

2*6300**02 

2.87Q0 .*02 

3.1lOO.*o2 

3.35QO»*o2 

3.5900 » *02 

3.83Q0 **02 

4.0700.*02 

4*3|00»*02 



ROW 

24 

2*64009*02 

2•88qq » *q2 

3.1200.*02 

3 . 3A0qi*o2 

3.6000 . *Q2 

3 . 84qq . *q2 

4.0800,*02 

4.3200.*02 




exit algol.Simula library 

EXECUTION TIME 000000*460 SECONDS - | IBRARY OF 


SEPT If* 1969 
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9.6. FORMATTED INPUT 

As with writing, a format may be included as a parameter to the READ procedure. A 
format tells how the card is laid out. The major advantage in using formats is that 
constants need no longer be delimited by blanks, and strings need not be enclosed in 
string quotes — the format specifies the ‘fields' in which information lies. The dis¬ 
cussion that follows is based on an example designed to illustrate most of the funda¬ 
mentals of reading formatted cards. 

The format declaration is the same as described in 9.5. The difference between a 
format being used as a parameter to WRITE and one being used as a parameter to 
READ is that the editing and nonediting codes are interpreted slightly differently. 
However, they are enough alike that in many cases the same format may be used with 
both procedures. 

The following example illustrates reading data from cards according to a specified 
format. The information pertains to student records with each card having the follow- 


ing format: 


Column 

Contents 

1-5 

Student number 

6-7 

Student initials 

8-21 

Student name 

22 

Status 

23-24 

Curriculum 

38-44 

Course name 

47 

Credit hours 

60 

Letter grade 


The problem is to read the above data in a form that will make the manipulations easy 
and permit printing all the information. It is this type of problem which gives rise to 
the necessity of specifying the card format. The steps necessary to achieve this 
result are: 


(1) Read a card 


(2) Accept columns 1—5 as an integer 

Student number 

(3) Accept columns 6—7 as a string 

Student initials 

(4) Accept columns 8—21 as a string 

Student name 

(5) Accept column 22 as an integer 

Status 

(6) Accept columns 23—24 as an integer 

Curriculum 

(7) Skip the next 13 columns 


(8) Accept columns 38—44 as a string 

Course name 

(9) Skip 2 columns 


(10) Accept column 47 as an integer 

Credit hours 

(11) Skip 12 columns 


(12) Accept column 60 as a string 

Grade 
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The FORMAT declaration can be used to take care of all the above functions. For 
example, the format could be 

FORMAT VAYDREI(A*I5*S2*S14*II * 12 *XX3*$7 *X2*11 *X12* SI)$ 

Note there is one entry in the format for each numbered line above. Each of the items 
in the above format is referred to as a ‘format code*. Of course, the initial A is 
analogous to the terminal AS.t of the write and is required to activate the subsequent 
READ procedure. 

A reasonable program segment for the above problem would be: 

INTEGER STUDNOfSTATI*CURCI*CREDS $ 

STRING INITIALS(2)* NAME(14)* COURSE (7) *GRADE(1) $ 

FORMAT VAYDREI(A*I5*S2#S14*IlfI2,X13*S7*X2*I1*X12*S1) $ 
LIST FRIEDRICH(STUDNOfINITIALS*NAME*STATl*CURCI* 

COURSE f CREDS *GRADE) S 

READ(CARDS* FRIEDRICH* VAYDREI) $ 

Only two nonediting codes are permitted with an input format: 

A activation code — required as the first code of the format to activate the 

subsequent READ procedure. 

Xw — skip over w columns on the card 


The editing codes (some of which are not in the example) have the following mean¬ 
ings, and w and d are restricted as before (see 9.5). 


FORMAT CODE 

ACTION 

Bw 

Boolean 

Accepts Boolean information from the field — either TRUE, 
FALSE, or 1, 0. 

Dw.d 

Real 

Accepts real information from the field. If the number is al¬ 
ready real, (i.e., has a decimal point or exponent part) then 
that determines the decimal. Otherwise, a decimal point is 
inserted d places to the left of the right edge of the field. 

Fw 

F ree 

Accepts an unspecified number of values from the field. 
These numbers must be punched in free format mode; that is, 
values may be punched any where within w character posi¬ 
tions. 

Iw.d 

Integer 

Accepts information from the field as being integer to the 
base d. d=0 is equivalent to d=10. 

Rw.d 

Real 

Same as Dw.d 

Sw 

String 

Accepts the whole field as a string. 

Tw.d 

Real 

Same as Dw.d 


Table 9—3 . Input Editing Codes 
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9.7. FILE HANDLING* 

The general form of I/O call is: 

<1/0 Procedure > ( < device > , < format > , < modifier list > , < parameter list>, 
<actual label list> ) 

Where 

<1/0 Procedure> is either READ or WRITE 

< device > is CARD, PRINTER, PUNCH, FILE (filename, location), 

APRINTER or APUNCH 

< modifier list > see section 9.8.2.1 

< parameter list> is a list of all of the I/O variables of lists 
<actual label list> see section 9.8.3 

When the device is FILE the above call takes either of two forms: 

Sequential files 

<10 Procedure> (File(filename), < modifier list > , < parameter list>, 

< actual label list > ) 

Random Files 

<10 Procedure > (FILE(filename, location), < modifier list > , < parameter list > , 
<actual label list > ) 

In these forms < filename > is the internal name of the file. According to system 
requirements, the name must be at most 12 characters long, left justified, and space¬ 
filled. If the string is less than 12 characters long, the compiler supplies trailing 
blanks. 

< location > is an integer specifying the location relative to the beginning of the file 
at which the I/O operation is to begin. 

The I/O operation is unformatted whenever the device is FILE. In case of doubt 
concerning allowable operations on files, and for information concerning the assignment 
and use of files, see the UNIVAC 1106/1108 Executive Programmers Reference Manual, 
UP-4144 (current version). The ALGOL linkages permit the user complete access to the 
file handling capabilities of the 1106/1108 operating system. 

To simulate magnetic tape on other devices, such as drum or FASTRAND, all files 
can be handled as sequential access storage devices that can be parameters to 
REWIND and POSITION statements (see 9.8). 

If a non-existent file is referenced, the compiler assigns a temporary FASTRAND 
mass storage file to that name. Since the information in a sequential file is written 
out in blocks containing various extra words that specify information about the block, 
one should be careful about accessing the same file both randomly and sequentially. 


♦See Appendix F3 for differences in file handling under EXEC II* 
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9.7.1. Sequential Files* 

If the device name FILE is followed by only one parameter, then the file is treated 
as if it were a sequential file. Information in such files is stored in blocks of 252 
words or less. The format of these blocks is: 


N 

DATA 

WORDS 


1 H1 

S4 

T3 . 

N 

LB 

— 

BSN 1 

1 

j DATA 


1 

1 

1 

... 1 

1 

__ 1 

r 

CHECK SUM 

_ 1 _l_“_i 

| 

BSN 


N — number of words in block. Must be 249 words or less. 
LB — last block flag. 

= 0 for not last block. 

= 1 for last block. 

BSN — block sequence number in logical record. 


ONE 

BLOCK 


The WRITE statement writes one logical record. Information is packed in blocks with 
all but the last block containing 249 words of data. The last block (LB flag = 1) may 
contain less than 252 words. One logical record is the information written out by one 
write statement. 


The READ procedure reads blocks of data from the device until all of the variables 
have been filled. All information in the last logical record read which is not used by 
that READ is lost, i.e., the next call on READ starts reading the following logical 
record. 


See Section 9.8 for operations on sequential files. 

9.7.2. Random Access Files** 

If the device name FI LE is followed by two parameters, the first one is the name 
of the file, as before. The second is the location relative to the beginning of the file 
at which this READ or WRITE operation is to begin in the file. 

Magnetic tape files cannot be referenced randomly. Integer, real and BOOLEAN 
variables take one word per variable. Real 2 and complex variables occupy two 
words. Strings are always left-justified in the first word in which they are written. 
Thus an N-character string occupies ENTIER (N + 5)/6 words. No descriptor is 
written out with any of the information, so it is not difficult to determine how many 
words any block of information will occupy. 


* See Appendix F. 3.1 . for operation under EXEC II. 

* *See Appendix F.3.2. for op eration under EXEC II, 
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9.7.3. Alternate Symbionts* 

The 1106/1108 operating system allows the user to define print and punch files other 
than the standard two. Information is these files is written out when the output device is 
free. In particular, the file will be written out at the end of the run. To use this 
ability from ALGOL, specify device APUNCH or APRINTER with one parameter. 

This parameter is the internal name of the file to which the information is to be 
written pending output. If the file is a tape file, the output will not be written out 
automatically. This operation must be initiated by the appropriate Executive control 
statement. 

9.8. OTHER DIRECTIVES 

REWIND and POSITION operations are useful in manipulation of files. In addition 
supplementary marks can be made on a file in order to facilitate access to information. 

9.8.1. REWIND 

The form of the REWIND statement is: 

REWIND (<file Ust> l , INTERLOCK, < file list > 2 ) 

where either < file list > may be empty. If < file list>^ is empty then INTERLOCK 
should be left out. 

This statement rewinds all of the files in < file list>i wit ^ interlock or if they are 
temporary non-tape files, it releases them. All of the files in < file list >2 a *e rewound 
without interlock. 

9.8.2. Modifiers and POSITION 
9.8.2.1. Modifiers 

A modifier list may be provided as a parameter to WRITE. This list may contain 
either EOF (< expression>) or KEY (<expression> ) or both. Note that EOF and 
KEY mean the same thing as EOF (0) and KEY (0). If the modifier list contains 
KEY, then a KEY record is written preceding the usual record written out. If it 
contains EOF, then an EOF record is written after the usual record. 

If < expression > is a string, the first six characters identify the record. The 
modifier EOI may also be used, in which case an end-of-information mark is written 
out after the usual record and EOF block. 




V 


♦See Appendix F—3.3 for EXEC II operation of special devices , 
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9.8.2.2. POSITION 

The procedure POSITION positions a file to a previously written KEY or EOF 
record, to the end of information, or advance it over a given number of ordinary 
records. The call is.* 

POSITION(FILE(filename), < position parameter> ,< label list>) 
where the position parameter is: 

EOF ( <expression> ) 

—EOF (<expression> ) 

KEY (< expression > ) 

— KEY ( <expression > ) 
integer expression 
EOI 
— EOI 

The direction of positioning is indicated by the sign of the position parameter, 
positive for forward and negative for backward. If the position parameter is EOI, 
the file is positioned to the next EOI mark. If the position parameter is an integer 
expression, the command advances over that many logical records ignoring KEY 
records.* 

Key records are also ignored when encountered by a READ statement. Abnormal 
exits from the POSITION procedure are listed in section 9.8.3. 

The procedure POSITION always positions over the record it is looking for in the 
direction indicated.* 


9.8.3. Labels 

In many of the I/O operations unexpected situations may be encountered. In order 
to inform the user of their existence and to enable him to recover, several label 
parameters may be supplied to the procedure. These are used as alternate exits in 
abnormal situations. If more labels are provided than are expected, the procedure 
will respond with an Improper Parameter message. 


9.8.3.1. POSITION Procedure 


At most two parameters are allowed. The following defines the exits that occur in 
various situations: 



Parameter to POSITION 

Condition 

Exit to 

EOF 

KEY 

integer expression 

End of Information 

End of Information 

EOF Record 

End of Information 

First Label 

First Label 

First Label 
Second Label 


If only one label is given, all exits to the second label go to the first. If no label 
is given, exit is made normally, that is to the next ALGOL statement. 


* Refer to App endix F.4 for opera tion under EXEC II* 
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9. 8 . 3.2. READ Procedure 

Control cards are identified by a master space (a 7—8 punch) in column 1. Except 
for the EOF control card, these cards are not read by an ALGOL program. However, 
the programmer can detect them by using labels as parameters to the READ procedure. 
In that case, if an attempt is made to read such a card, the READ procedure terminates 
reading and exits to the given label. 

When an EOF card is encountered by the READ procedure, reading terminates. No 
new values are assigned to the remaining parameters in the input list. If a label is 
present as a parameter, the exit is made to that label. Otherwise, exit is made to 
the next ALGOL statement. The next time the READ procedure is called, it begins 
by reading the card after the EOF card. Thus, the purpose of EOF is to give the 
programmer a convenient method of separating sections of data of unknown length. 

If a control card other than an EOF card is encountered, no more data cards can 
be read for that run. 

At most three labels may be supplied as parameters to READ. If only one is specified 
all exits to the second label will be made to the first. If no third label is specified 
the program terminates upon encountering a situation that would require exiting to 
the third label. 

The editing of the READ procedure is controlled in the following way, depending 
on the number of labels in the READ call: 


DEVICE 

CONDITION 

EXIT TO 
LABEL NO. 

NO LABEL 

CARD 

EOF Card 

i 

normal return 


any other control card 

2 

program terminated 


error in read 

3 

program terminated 

FILE 

EOF record 

1 

normal exit 


end of information 

2 

normal exit 


error in read 

3 

program terminated 


Example: 


BEGIN ARRAY Ad:20)$ 
LOCAL LABEL OK*FIN $ 


WEEDJREAD(CARDS*A*OK*FIN) $ 


ok: write (»eof - card reader*) $ 

FIN: WRITE!’PROGRAM TERMINATED BY 
END $ 


GO TO WEED $ 
CONTROL CARD’) 


$ 
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9.8.3.3. WRITE Procedure 

Only one label is allowed as a parameter to WRITE. Exit is made to this label if 
an attempt is made to write past the physical end of the FILE. 

9. 8 . 3. 4 . MARGIN Procedure* 

The procedure MARGIN provides the ALGOL user the means for controlling the 
form of the output of the PRINT symbiont (see the UNIVAC 1106/1108 Executive 
Programmer’s Reference Manual, XJP-4144 (current version).) The form of the call 

on MARGIN is: 

MARGIN( <control string >) 

where <control string> is a string containing one or more control functions. 

Spaces are ignored prior to the first, or between functions. Each function begins 
with a single letter, followed by a comma, followed by any special information 
required, and terminated by a period. The format of the information character 
string varies according to the function but must not contain a period. 

The following control functions are allowed: 

L — Space printer to logical line nn, where logical line is defined as the line 

number relative to the top margin setting (see M below). All line positioning 
and printing is performed within the defined margin settings. (The bottom 
logical line of a page is identical to the top logical line —1 of the next page.) 
Positioning to a logical line on printers with space-print operation is to 
logical line n — 1; therefore when n - 1, the logical line setting is the last 
line of the current page. This is also true when n = 0, or when n is greater 
than the length of the logical page. When n is less than or equal to the 
current line of the current page, the succeeding page is positioned to the 
logical line n — 1. The format of this function is: 

L,nn, 

H — Initiate heading printing. This function provides the user with an automatic 
means of printing a heading on each succeeding page of his print file. The 
format of this function is: 

H, option, page #, text of heading 

If the option field contains the letter X, a page and date will not be printed 
as part of the heading. Option n turns the heading off. A page count is main¬ 
tained by the processing symbiont. When the page # field is blank, the page 
count current to the field is used to begin page numbering. When coded, page # 
is made the page number. In addition to the page number, the current date is 
included in the heading, and both will appear in the upper right corner of each 
page. This position of the heading is the second line above logical line 1. 

If the upper margin is one line or non-existent, no heading is printed. As many 
as 17 words of heading text may be supplied. 


*Refer to Appendix F.5 for op eration under EXEC II. 
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M — Set margins. This function supplies the information for re-adjusting page 
length and top and bottom margins. The standard print page definition 
is 66 lines per page with a top margin setting of six lines, and a bottom 
margin setting of three lines. Note that the top and bottom margins refer to the 
number of blank lines at the top and bottom of the page respectively. Thus the 
standard margin setting is 66,6,3 giving 57 printable lines. This page definition 
is assumed at the beginning of each print file. When the M function is used, a 
page alignment procedure is initiated with the page length parameter. This func¬ 
tion is also used to return to the standard page length. The format of this function 
is: 

M, length, top, botton 

W — Set maximum line width to allow error checking on image length at run time. The 
standard of 22 words (132 characters) is assumed unless the W control is used. 
The format of the function is: 

W, width 

where width specifies the maximum line width in words. If W is exceeded, a 
program error occurs. 

S — Special form request. This function enables the user to instruct the operator 
to load a special form required to process the print or punch file. The format 
of this function is: 

S, message text 

where the message text can be up to ten words long. When this function is 
encountered by the processing symbiont, the message is displayed on the 
operator’s console in the form: 

run ID/filename c/u options 
message text 

The user’s message text is displayed on the line following the symbiont 
message. The options available to the operator for answering the message 
depend on the symbiont. The following options are included in the 0755 HSP, 

Card Punch and the 1004 Printer and Card Punch symbionts: 

A — Begin processing the output file. 

Q — Return file to symbiont queue. The print or punch file will be passed temporarily 
and placed behind the next file of this symbiont queue. 
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The device ‘DRUM* allows the reading and writing of information in essentially a 
random access manner. For this purpose a portion of the drum is set aside and the 
parameter to DRUM indicates the relative word address of this random access file. 

Example: 

WRITE(DRUM(0)fA) 

writes A at the very first part of the random file. To effectively use DRUM, the pro¬ 
grammer must know how many words are required for each expression or array being 
output. The answer is that single precision quantities require one word (INTEGER, 
REAL, BOOLEAN) and double length quantities require two (REAL 2 and COMPLEX). 
Strings require one word for each six characters of their length plus one additional 
word. Information may be read from DRUM address i by 

READ (DRUM ( I ) > < input list >) 

A label as a parameter to a READ or WRITE with DRUM is used as an exit if an 
attempt is made to read or write past the end of the file. 
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10. OPERATION 




10.1. SOURCE CARD FORMAT* 

The source language statements to the compiler must come initially from punched 
cards. Only columns 1—72 are read for information in free format and anything 
following column 72 is considered to be a (space) delimiter. Columns 73—80 can 
be used for any purpose desired, e.g., short comments or serial identification. 

There is no restriction on placing statements on a card but the usual practice is 
to arrange them for easy reading and modification. The full 80 columns may be 
utilized for input data at execution time. 

10.2. OPERATING INSTRUCTIONS 

The ALGOL compiler operates like all the processors in the UNIVAC 1106/1108 
Operating System and, besides the standard options, includes some unique to itself. 
The available options are:** 

A Accept the results of compilation even if errors were detected. 

F Allow code in columns 73—80 of card. 

S Single spaced listing of ALGOL source statements. 

L The compiled assembly language instructions are listed along with the source 
code. 

N (or lack of any other print option) Suppress all printing by the processor. If 
‘N’, disregard any other print option. 

P Inhibit printing of begin, end, and block diagnostics. 

T Print the timing for phases 1 and 2 of compilation. 

X Abort the run immediately if any error is found. 

Z Delete the formation of run-time diagnostic information. 

0,R References to subscripted variables normally generate a call to a library 
procedure. This procedure, besides calculating the proper address, also 
checks that the requested operation is legal (i.e., that the subscript variables 
are in the range of the declaration). With the R option (remove checking) this 
checking is not done but the address calculation is, thus giving greater speed 
to the object program. The 0 option (open) is even faster in that the necessary 
coding to calculate the address is compiled in line, thus removing the call and 
return times from the reference. Of course, the O option requires more main 
storage. When the program is working, and if the subscript expressions 
are not data-dependent, then the R option should be used. If main storage 
permits, the O option should be used. Neither should be used when the 
program is being debugged. 


* See App endi x F.6 for op eration under EXEC II 

**See Appendix F.7 for ALG options under EXEC II . 
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APPENDIX A. BASIC SYMBOLS AND 

THEIR CARD CODES 


This appendix lists the basic symbols of UNIVAC 1106/1108 ALGOL 60, with the 
corresponding symbol for the reference language and the punched card code. 


REFERENCE 

LANGUAGE 

UNIVAC 1106/1108 
ALGOL 60 

CARD CODE * 

TRUE 

TRUE 

bbhhbmbi 

FALSE 

FALSE 


+ 

+ 

12 

_ 

— 


X 

* 

11-4-8 

/ 

/ 

0-1 

-f 

// 

0-1 0-1 


** 

11—4—8 11-4-8 

< 

LSS 


< 

LEQ 


sc 

EQL 


> 

GEQ 


> 

GTR 


* 

NEQ 


== 

EQIV 


D 

IMPL 


V 

OR 


A 

AND 


1 

NOT 


go to 

GO TO or GOTO 


if 

IF 


then 

THEN 


else 

ELSE 


for 

FOR 


do 

DO 


, (comma) 

, (comma) 

0-3-8 

. 

. 

12-3-8 

10 

& 

2-8 


* Symbols for which a card code is not specified are reserved identifiers . 
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REFERENCE 

LANGUAGE 

UNIVAC 1106/1108 
ALGOL 60 

CARD CODE * 


: or . . 

5-8 or 12-3-8 12-3-8 

f 

$ or ; 

11-3-8 or 11-6-8 

: = 

= or : = 

3—8 or 5—8 3—8 

STEP 

STEP 


UNTIL 

UNTIL 


WHILE 

WHILE 


COMMENT 

COMMENT 


( 

( 

0-4-8 

) 

) 

12-4-8 

C 

( or C 

0-4-8 or 12-5-8 

□ 

) or □ 

12-4-8 or 11-5-8 

’ (apostrophe) 

, (apostrophe) 

4-8 

BEGIN 

BEGIN 


END 

END 


OWN 

OWN 


BOOLEAN 

BOOLEAN 


INTEGER 

INTEGER 


REAL 

REAL 


ARRAY 

ARRAY 


SWITCH 

SWITCH 


PROCEDURE 

PROCEDURE 


LABEL 

LABEL 


VALUE 

VALUE 



< (for complex 

12-6-8 


> constants) 

6-8 


* Symbols for which a card code is not specified are reserved identifiers. 


In addition, the following reserved identifiers have been introduced into the 
language: 


LIST 

FORMAT 

EXTERNAL 

OTHERWISE 

LOCAL 

GO 

TO 

XOR 

STRING 

COMPLEX 

REAL 2 
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APPENDIX B. STANDARD PROCEDURES 

AND TRANSFER FUNCTIONS 


The following procedures are available for use without being declared. The names 
are not reserved identifiers and may be redefined in any block. The * indicates 
“not applicable”. 


NAME 

NO. OF 

TYPES OF 

RESULT 

TYPE OF 


PARAMETERS 

PARAMETERS 


RESULT 

ABS 

1 

INTEGER 

Ix| 

INTEGER 



REAL 

1 x| 

REAL 



REAL 2 

1 X 1 

REAL 2 



COMPLEX 

1 xl 

REAL 

ALPHABETIC 

1 

STRING 

TRUE if the 
string con¬ 
sists of all 

BOOLEAN 




spaces or 

alphabetics 

(A-Z); 

FALSE 

otherwise 


ARCCOS 

1 

REAL 

Arccos(x) 

REAL 



REAL 2 

Arccos(x) 

REAL 2 

ARCSIN 

1 

REAL 

Arcsin(x) 

REAL 



REAL 2 

Arcsin(x) 

REAL 2 

ARCTAN 

1 

REAL 

Arctan(x) 

REAL 



REAL 2 

Arctan(x) 

REAL 2 

CARDS 

0 

* 

None 

* 

CLOCK 

0 

* 

Present time 
of day in 
seconds since 
00:00 

INTEGER 

COMPLEX 

2 

INTEGER, REAL 

The complex 

number 

x+i*y 

| 

COMPLEX 
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NAME 

NO. OF 

TYPES OF 

RESULT 

TYPE OF 


PARAMETERS 

PARAMETERS 


RESULT 

COS 

1 

REAL 

Cos(x) 

REAL 



REAL 2 

Cos(x) 

REAL 2 



COMPLEX 

Cos(x) 

! COMPLEX 

COSH 

1 

REAL 

Cosh(x) 

REAL 



REAL 2 

Cosh(x) 

| REAL 2 



COMPLEX 

Cosh(x) 

| COMPLEX 

i 

DOUBLE 

1 

INTEGER, REAL 

Real 2 
representa¬ 
tion of x 

REAL 2 

DRUM 

1 

INTEGER 

None 

* 

ENTIER 

1 

REAL, REAL 2 

Largest 
integer < x 

INTEGER 

EOF 

0 or 1 

Any expression 

None 

* 

EOI 

0 

* 

None 

* 

EXP 

i 

REAL 

Exp(x) 

REAL 



REAL 2 

Exp(x) 

REAL 2 



COMPLEX 

Exp(x) 

COMPLEX 

IMAGINARY 

i 

COMPLEX 

Imaginary 
part of x 

REAL 

INTEGER 

1 

REAL, REAL 2 

Entier 

(x+0.5) 

INTEGER 

KEY 

0 or 1 

Any expression 

None 

* 

LENGTH 

1 

STRING 

Length of 
string 

INTEGER 

LN 

1 

REAL 

Ln(x) 

REAL 



REAL 2 

Ln(x) 

REAL 2 



COMPLEX 

Ln(x) 

COMPLEX 

MARGIN 

3 or 4 

INTEGER first 3 

(see section 9) 

* 

MAXf 

List of ex¬ 

REAL, INTEGER 

Algebraic 

REAL 


pressions 


largest 
element of 
list 


MINT 

List of ex¬ 

REAL, INTEGER 

Algebraic 

REAL 


pressions 


smallest 
element of 
list 



tSee Appendix F»8 for di tierenc es in types of p arsme ters under EXEC II. 
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NAME 

NO. OF 

TYPES OF 

RESULT 

TYPE OF 


PARAMETERS 

PARAMETERS 


RESULT 

MOD 

2 

INTEGER 

x(mod y) 

INTEGER 

NUMERIC 

i 

STRING 

TRUE if the 
string is 
acceptable to 
the string- 
integer trans¬ 
fer function; 
FALSE 
otherwise 

BOOLEAN 

POSITION 

Special 

list 



* 

PRINTER 

0 

* 

None 

* 

PUNCH 

0 

* 

None 

* 

RANK 

i 

STRING 

The fieldata 
equivalent 
of the first 
character of 
the string 

INTEGER 

READ 

Special 

list 



* 

REAL 

1 

INTEGER, REAL 2 

Real repre¬ 
sentation of X 

REAL 



COMPLEX 

Real part of x 

REAL 

REWIND 

Special 

list 



* 

SIGN 

i 

INTEGER 

1 x > 0 

0 x =0 

INTEGER 




-1 x< 0 


SIN 

i 

REAL 

Sin(x) 

REAL 



REAL 2 

Sin(x) 

REAL 2 



COMPLEX 

Sin(x) 

COMPLEX 
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NAME 

NO. OF 

TYPES OF 

RESULT 

TYPE OF 


PARAMETERS 

PARAMETERS 


RESULT 

SINH 

1 

REAL 

Sinh(x) 

REAL 



REAL 2 

Sinh(x) 

REAL 2 



COMPLEX 

Sinh(x) 

COMPLEX 

SQRT 

1 

REAL 

Sqrt(x) 

REAL 



REAL 2 

Sqrt(x) 

REAL 2 



COMPLEX 

Sqrt(x) 

COMPLEX 

TAN 

1 

REAL 

Tan(x) 

REAL 



REAL 2 

Tan(x) 

REAL 2 



COMPLEX 

Tan(x) 

COMPLEX 

TANH 

1 

REAL 

Tanh(x) 

REAL 



REAL 2 

Tanh(x) 

REAL 2 



COMPLEX 

Tanh(x) 

COMPLEX 

TAPE 

1 

INTEGER 

None 

: 

* 

WRITE 

Special 

* 

* 

* 


list 





The following transfer functions transfer an expression of one type to another type. 
These functions are evoked automatically by the compiler whenever necessary. 
Functions for which the arguments are listed may be called explicitly. 


FUNCTION 

TYPE OF ARGUMENT 

TRANSFERRED TO TYPE 

REAL(X) 

INTEGER 

REAL 

DOUBLE(X) 


REAL 2 

(intrinsic) 


STRING 

COMPLEX(REAL(X),0) 


COMPLEX 

INTEGER(X) 

REAL 

INTEGER 

DOUBLE(X) 


REAL 2 

COMPLEX(X.O) 


COMPLEX 

INTEGER(X) 

REAL 2 

INTEGER 

REAL(X) 


REAL 

COMPLEX(REAL(X),0) 


COMPLEX 

(intrinsic) 

STRING 

INTEGER 
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APPENDIX C. ERROR MESSAGES 


Cl. COMPILATION ERRORS 

The following is a list of error messages that can occur during compilation with an 
explanation of what may be the cause of an error. An * is printed under the approximate 
location of the offending syntax, but in some cases this may not be of help; for example, 
a missing left parenthesis is not found until the whole statement has been scanned. 
Spurious error messages may be printed for particularly malformed programs. These 
usually disappear after the first few errors have been eliminated. 


ERROR 

EXPLANATION 

Illegal character pair 

Self explanatory 

Constant too large 

Self explanatory 

Improper block structure 

A declaration has occured other than at 
the head of a block 

Improper declaration 

An element in the identifier list is not 
an identifier 

Duplicate declaration/specification 

A name in the identifier list has already 

been defined in this block 

Improper declaration/specification 

The identifier list is malformed 

Improper specification 

OWN, LOCAL, or EXTERNAL has been 
used in a procedure specification part 

Improper specification 

The name is not a formal parameter 

Improper own declaration 

OWN not followed by INTEGER, REAL, 
REAL2, COMPLEX, ARRAY 

Improper external declaration 

EXTERNAL not followed by <type>, 
FORTRAN, NONRECURSIVE or PRO¬ 
CEDURE 

Duplicate value specification 

The parameter has already been specified 
as value 

Improper label specification 

It does not occur in a specification part 
of a procedure 

Improper value specification 

It does not occur in a procedure spec¬ 
ification part 

Improper array declaration 

Bound pairs malformed 

Improper array declaration 

Bound pairs either not separated by a 
comma or a : missing 
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ERROR 

EXPLANATION 

Improper list declaration 

A malformed list 

Improper switch declaration 

Malformed switch list 

Improper switch declaration 

The *=* is missing 

Improper procedure declaration 

The next symbol after the procedure 
name is not a ( or $ 

Improper procedure parameter 

A formal parameter is not an identifier 

Duplicate procedure parameter 

There is another formal parameter of 
this name already 

Improper parameter delimiter 

The parameter delimiter is neither a 
comma nor ) <letter string> : ( 

Improper procedure specification 

This parameter has been named in a 
value specification 

Improper label definition 

A numeric or other malformed label 

Duplicate label definition 

Self explanatory 

Improper format phrase 

The w or d field is too large 

Improper format phrase 

A string field has more than 132 char. 

Improper format phrase 

An extra ) 

Improper repeat phrase 

A zero repeat phrase 

Improper repeat phrase 

A noninteger expression as a variable 
repeat phrase 

Undefined format symbol 

Self explanatory 

Improper string declaration 

Expression for length is malformed 

Improper string array declaration 

Either length expression or subscript 
pairs are malformed 

Improper procedure call 

Incorrect number of arguments for library 
procedure 

Improper procedure call 

Arguments for library procedure are of 
incorrect type 

Improper procedure assignmeat 

Self explanatory 

Improper IF statement 

Malformed conditional statement 

improper IF statement 

Self explanatory 

Improper use of THEN 

Self explanatory 

Improper use of ELSE 

Self explanatory 
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ERROR 

Improper FOR statement 
Improper GO statement 

Improper GO statement 
Extra right parenthesis 
Extra left parenthesis 
Missing operator 
Missing operator 
Missing operand 
Extra END 
Missing END 

Improper use of //operator 
Improper assignment statement 
Undefined transfer function 

Improper use of a list identifier 
Improper use of label 
Improper use of a reserved identifier 
Improper use of an array identifier 
Undefined relational operand 
Improper string expression 
Misplaced semicolon 
Misplaced comma 
Undefined variable 


EXPLANATION 

Malformed FOR list 

GO not followed by a designational 
expression 

A malformed designational expression 
Self explanatory 
Self explanatory 

Implied multiplication has been used 

Self explanatory 

Self explanatory 

Self explanatory 

Self explanatory 

One or both operands are not integer 

The left-hand side is not a variable 

The transfer function called for by this 
statement is not defined 

List used in other than a procedure call 

A label appears out of context 

Reserved identifier appears out of context 

Array identifier appears out of context 

Self explanatory 

Malformed string expression 

A semicolon ($) appears out of context 

A comma appears out of context 

Reference is made to an undeclared 
variable 


Misplaced colon 
Improper correction 
Compiler capacity exceeded 


A colon appears out of context 
Correction card out of order 
Internal tables of compiler exceeded 
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C2. RUN-TIME ERRORS 

An error during execution results in the printing of an error message, the name of the 
library procedure involved, if applicable, and the line number of the ALGOL program at 
which execution was currently taking place. The program is then terminated. The following 
is the list of the possible error messages. 


ERROR 

EXPLANATION 

Incorrect number of arguments 

Incorrect number of arguments to an ALGOL 
or library procedure 

Memory capacity exceeded 

Space for dynamic storage of variables 
has been exceeded 

Bad input/checksum error 

Tape or drum hardware error, or possibly 
an attempt to read a non-ALGOL formatted 
tape 

Undefined type conversion 

Self explanatory 

Insufficient data for program 

Non-EOF control card read with no exit 
label in READ call 

Improper parameter 

A formal and actual parameter do not agree 
in either type or kind 

Improper array declaration 

A lower bound expression is greater 
than the corresponding upper bound 
expression 

Improper string declaration 

The string length is negative or greater 
than 4095 

Unrecoverable tape/drum error 

Hardware fault 

Attempt to pass end of record 

Record is shorter than the input list 

Constant out of range 

Self explanatory 

Characteristic overflow 

A real number of magnitude greater than 

1038 generated 

Attempted division by zero 

Self explanatory 

Improper number of dimensions 

Reference to a subscripted variable has 
a different number of subscript positions 
than was declared for the array 

Subscript out of range 

Subscript expression is out of the range 
of the declaration 

Result undefined 

Arithmetic library function not defined 
for argument 

Argument out of range 

Argument out of range for a meaningful 
result for an arithmetic library procedure 

Illegal character 

Data card has an illegal character 

Illegal format phrase 

Self explanatory 
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APPENDIX D. EXAMPLES OF PROGRAMS 


This appendix contains some simple examples illustrating the use of UNIVAC 1106/1108 
ALGOL 60. Each has been run and some sample input and results are shown. 


BEGIN 

COMMENT EXAMPLE 1 

CALCULATION OF VALUE OF ARITHMETIC EXPRESSION 
WITH READ IN VARIABLES S 
REAL A*B»C $ 

INTEGER TOILL $ 

READ (CARDS*A*B*C) $ 

TOILL s A*B**C/A $ 

WRITE (PRINTER*A*B*C*TOlLL) $ 

DATA 

5 6.2 1.222 
RESULTS: 

5.0000r+00 6.2000»+00 1.2220**00 7 


BEGIN 

COMMENT EXAMPLE 2 

CALCULATION OF SQUAREROOT* B* OF A REAL NUMBER* 

A* WITH 6 DIGITS ACCURACY BY NEWTON-RAPHSON ITERATION $ 
REAL A»B*OLDB $ 

READ (CARDS*A) $ 

OLDB = 1.0 S 

FOR B = 0.5*(A/OLDB+OLDB) WHILE ABS(B-OLDB) GTR ln**(-6)*B DO 
OLDB = B S 

WRITE (PRINTER*A*B) $ 

END PROGRAM $ 


DATA 

5.77777 

RESULTS: 


5.7778*+QQ 2.4037**00 
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EXAMPLE 3 

VALUE OF A POLYNOMIAL Y“Bl0)+B(1)*X. +B<N)*X**N $ 

X»Y $ 

K»N $ 

(CARDS»N) $ 

DEGREE OF POLYNOMIAL READ FROM CARDS. INNER BLOCK PERFORMS 
READING OF COEFFICIENTS AND CALCULATIONS AND PRINTING OF 
RESULTS $ 

BEGIN 

REAL ARRAY B(05N) $ 

READ (CARDS»B) $ 

READ (CARDS»X> $ 

Y = B<N) $ 

FOR K=N-1 STEP -1 UNTIL 0 DO Y = Y*X+B(K) $ 

WRITE (PRINTER# * VALUE OF A POLYNOMIAL OF DEGREE•»*N=»»N» 
♦COEFFICIENTS'#B#♦X=* »X»*Y='»Y) * 

END CALCULATION $ 

END PROGRAM $ 

DATA 

4 

1.223 3.5 7.52 -4.02 -33.5 
5.55 

RESULTS: 

VALUE OF A POLYNOMIAL OF DEGREE 
N= 

4 


BEGIN 

COMMENT 

REAL 

INTEGER 

READ 

COMMENT 


COEFFICIENTS 

1.2230»+ 00 3.5000#+00 7.52Q0#+00 -4.0200#+00 -3.t500»+01 

X= 

5.5500# +00 
Y- 

-3«2220»+04 
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BEGIN 

COMMENT EXAMPLF 4 

PROGRAM WITH A REAL PROCEDURE* RIG* WHICH FtNDS THE LARGEST 
OF THE N LOWER-INDEXED ELEMENTS (STARTING WITH INDEX=1) OF A 
ONE-DIMENSIONAL ARRAY* A* WITH POSITIVE ELEMENTS $ 

REAL PROCEDURE BIG(N>A) $ 

VALUE N $ 

INTEGER N $ 

REAL ARRAY A $ 

BEGIN 

INTEGER B $ 

REAL C »D $ 

B = 1 S 
D = A(l) $ 

l: C = D - A(B+1) $ 

IF C LSS 0 THEN D s A(B+1) S» 

B = B+l S 

IF B LSS N THEN GO TO L S 
BIG = D $ 

END BIG $ 

REAL ARRAY F(i:50) $ 

REAL H»K $ 

READ (CARDS»F) $ 

COMMENT CALL OF BIG TO FIND THE LARGEST OF THE 20 LOWER 
ELEMENTS OF F $ H = BIG(20»F) S 
WRITE (PRINTERS) $ 

COMMENT LARGEST ELEMENT IN F S 
K = BIG(50»F) $ 

COMMENT USE OF BIG IN MORE COMPLEX EXPRESSION $ 

H = H + BIG(10*F)/K*BIG(15*F> S 
WRITE (PRINTER»H*K) $ 

END PROGRAM $ 

DATA 

1.22 3.55 1 22.2 0.5 7.2 8.12 21.4 4.1 22*5 0.422 
55.2 0.12345 5.86 3.55 7.53 4 5 2 3 1 77 5 22.1 
5.1 2.3 3.2 4.2 9,85 8,99 5.66 66 44 11 2 44.7 
55.12 44,1 2.89 7.521 8*56 5.42 4.88 6.789 5,423 
7.1234 9.753 8.741 5 6 

RESULTS: 


5.5200* +01 

7.1330 # +01 7.7000»+01 
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Example 5. Newton’s Method of Successive Approximations 



Given: An area A defined by a circular arc of radius r and its chord. 

Required: Find the value of angle x subtended by the arc. 

Solution: The relationship between A and x is: 
r 2 

A = — (x - sin x) 

2 

Like many practical problems, this one has no analytic solution. However, methods have been 
developed to find approximate solutions to such problems. The method to be used here is called 
Newton’s Method. If the solution x to 

f(x) = 0 

is to be found, then a sequence of values approximating the solution x is given by 
x n+l = x n * f(x n )/f’(x n ). 

For this problem 

f(x n ) = (l/2)r 2 (x n - sin x n ) - A 

and 

f’(x n ) = (l/2)r 2 (l - cos x n ). 
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Therefore, using elementary algebra, the approximation scheme is 

x n — sin x n - 2A/r^ 

x n+l = x n 

1 — cos x n 

This equation is solved repeatedly, each time with the previous value of x n+ ^ substituted 
for x n to compute a new value for x n+ ^. The second term of the equation is the difference 
between successive approximations. 

When this difference becomes less than some specified value, the sequence of approximations 
is said to have converged to a solution. The iteration procedure is then terminated and the 
problem is considered solved. 

Practical considerations place a limitation on the number of iterations permitted. If the 
sequence of approximations does not converge within a prescribed number of iterations, the 
procedure is terminated and the approximate solution is rejected. 

The conditions used in this example are: 

Area = 1.5 
Radius = 5.0 

The first approximation is x^ =1.0. The iteration procedure is then performed for a maximum of 
nine iterations. If the successive approximations differ by less than 0.00001, then the sequence 
of approximations is considered convergent. The iteration procedure is then terminated and the 
sequence of approximations and differences is printed out in the form of a table. Otherwise, 
the program is terminated with no output. 

The following identifiers in the program represent the corresponding physical quantities: 

AREA Area enclosed by chord and arc (A) 

RADIUS Radius of circle (r) 

ANGLE Approximation to the angle x 

CHANGE Difference between successive approximations 

SMALL Criterion for convergence 

For convenience, the quantity 2A/r^ 


G 
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The program is as follows: 

BEGIN 

COMMENT EXAMPLE 5 

SAMPLE PROGRAM USING UNIVAC UOb/1108 ALbOL * 

REAL AREA t RADIUS# SMALL» G $ 

INTEGER I# K $ 

REAL ARRAY ANGLE<1!10)» CHANGE(159) $ 

FORMAT F10(X9#* ITERATION* t X5 * * ANGLE * • X9r * CHANGE*»Al.1 )t 
FlKX13#Il»D15.6rD14.5»Al) # 

F12(X9»»THE ITERATION PROCEDURE HAS CONVERSED 1 rA1) $ 

COMMENT SET UP VALUES TO BE USED IN PROBLEM $ 

AREA = 1.5 $ 

RADIUS = 5.0 S 

SMALL = 1.0&-5 S 

G = (2»0*AREA)/(RADIUS**2) $ 

COMMENT BEGIN ITERATION LOOP — MAXIMUM OF 9 ITERATIONS $ 

ANGLE(1) = 1.0 $ 

FOR 1=1 STEP 1 UNTIL 9 DO 
BEGIN 

COMMENT COMPUTE CHANGE IN APPROXIMATE SOLUTION $ 

CHANGE(I) = (ANGLE(I)-SIN(ANGLE(I))-G)/(1.O-COS(ANGLE(I))) $ 
COMMENT TEST FOR CONVERGENCE OF APPROXIMATE SOLUTION $ 

IF ABS(CHANGEd) ) LSS SMALL THEN GO TO L110 % 

COMMENT APPROXIMATION HAS NOT CONVERGED - COMPUTE NEXT 
APPROXIMATION $ 

ANGLE(1+1) = ANGLE(I) - CHANGE!I) 

END $ 

COMMENT END OF LOOP - ITERATION PROCEDURE HAS NOT CONVERGED $ 

GO TO FIN $ 

COMMENT THE ITERATION PROCEDURE HAS CONVERGED * 

LllOJ WRITE (PRINTER #F1Q) S 

WRITE (PRINTER'Fll# FOR K=1 STEP 1 UNTIL I DO 
(K#ANGLE(K)#CHANGE(K))) $ 

WRITE (F12) $ 

fin: 

END OF PROGRAM $ 


Note that a completely blank card gives a blank line in print. 
The sample gave the following result: 


ITERATION ANGLE CHANGE 

1 1,000000 ,08381 

2 .916186 ,00742 

3 .908770 .00006 

4 .908714 ,00000 


THE ITERATION PROCEDURE HAS CONVERGED 


This is in excellent agreement with the theory. 
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APPENDIX E. JENSEN’S DEVICE AND 

INDIRECT RECURSIVITY 


The purpose of this section is to acquaint the reader with two interesting programming tech¬ 
niques, namely Jensen’s Device and Indirect Recursivity. A thorough treatment of the recursive 
concept may be found in “The Use of Recursive Procedures in ALGOL 60”, H. Rutishauser 
The Anual Review in Automatic Programming, Pergamon Press, London, 1963. 

Jensen’s Device comprises the use of two parameters in a procedure call, in which one is a 
function of the other. Neither may be a value parameter. 

The following example is a method of evaluating an approximation to the definite integral of a 
function by means of Simpson’s Rule over one interval. The algorithm may be written: 

REAL PROCEDURE SIMPS (XiARITH* At B) $ 

VALUE A*B $ REAL Xr ARITH* A*B $ 

BEGIN REAL FA* FM* FB $ 

X~A $ FA-ARITH $ X=B $ FB=ARITH $ 

X=B-A)/2 S FMSARITH $ 

SXMPS=(B~A)*C FA+4*FM+FB >/6 
END SIMPSON INTEGRATION $ 

In a call of SIMPS, ARITH may be any arithmetic expression. Jensen’s Device refers to the 
case when ARITH is a function of X. For example, the call: 

IxSIMPS(ZtEXP<Z*Z>* 0,0t 1,0) 

would cause ARITH to be replaced by EXP(Z*Z) in the running program. This call evaluates 
an approximation to the integral 


J e z2 dz 

0 

In evaluating an approximation to the double integral 

1 1 

X / eX ^ d y dx 
o o 

indirect recursivity may be used by making the parameter corresponding to ARITH a call to 
SIMPS itself, thus 

I~SIMPS(X*SIMPS(Y*EXP(X*Y)* 0*G* 1#Q>* 0*0* 1,0) 

More material may be found in: E.W. Dijkstra, A Primer of ALGOL 60 Programming , Bound 
Variables, Academic Press, London, 1962, pp. 57-59. 
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APPENDIX F. EXEC II ALGOL 


This appendix describes those operations of ALGOL under EXEC II that differ from cor¬ 
responding operations under EXEC 8. Each item is preceded by a reference to this manual 
that describes operation under EXEC 8. 


F.l. PRINTING OF STRINGS (Section 9.2) 

The expression or array element is printed in a form consistent with its type. 


Type 

F orm 

INTEGER 

Integer form, right justified in the field. Includes a leading minus 
if the expression is negative. Leading zeros are not printed. 

REAL and 
REAL 2 

Both types are printed right justified in the form X.XXXX,±NN 
for REAL and X.XXXX,±NNN for REAL 2, where NN and NNN 
represent the power of ten, preceded by the appropriate sign. 

A negative number is preceded by a minus sign. 

BOOLEAN 

Either TRUE or FALSE is left justified in the field. 

COMPLEX 

The real and imaginary parts are each given a field as for REAL. 
Thus, only five expressions of type COMPLEX can be printed on 
the same line. 

STRING 

Printed left-justified. If space remains on the print line the string 
will be printed on that line and, if necessary, continued on success¬ 
ive lines until the output is completed. 
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F.2. EXAMPLES OF PRINTING OPERATION UNDER EXEC II (Section 9.2) 
Example 1: 


BEG I iM 

COMMENT STRING WRITE COMPARISON (SEC 9.2)5 
REAL A»B$ 

A=7.Q$ 

8=0.otm 

WRlTEt»A=»»A** B=*»B»» A OVER B=*rA/B)$ 

ends 

BEGIN 

INTEGER I»J$ 

INTEGER ARRAY IA(i:5)S 
BOOLEAN ARRAY BA(1:2»1:2>$ 

FOR 1=(1M »5) DO IA(I) = 1—3$ 

FOR 1=(1»1»2) DO FOR J=(l»l»2) DO BA(I»J)=I GEQ J$ 
WRIT E ( * 1 A= * 1 1A ) $ 

WRITE(*BA=» »BA)$ 

END$ 


Printer output: 


A= 

7.0000»+00 B= 

4.0000» —03 

A OVER B= 

1•7500 »+03 

I A= 

-2 

-1 0 

1 

2 

BA= 

TRUE TRUE 

FALSE 

TRUE 
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Example 2: 


lit 01 iM 

COMMENT FREE-FORMAT PRIN1ER OUTPUT (SEC 9.2)S 
INTEGER I»X»YS 
REAL R$ 

REAL 2 .<2$ 

COMPLEX Cs 
STRING 5 (2 0 0 ) S 

boolean array SA(i:2'i:2>$ 
integer array iau:s)t> 
siring array sa(12:i:s)s 
r2=H=1=10S 

WRI IE ( * I=» , I, * R=*,R,» R2='»R2>S 

FOR X=(l»l»2) DO FOR Y-(1 »1»2 ) DO bA(X»Y)=X EOL Y* 

WRITE ( * HA— * r BA ) S 

C=<1 .l)M),U>t 

WRi 11( *C=' »OS 

S=*ABCDeF’T 

S(133»6)='UVwXY2»S 

WRIIE(*S='»S)$ 

FOR X=(l»i»S) DO BEGIN 1A ( X ) -XS SA(X ) = XS ENOS 
WRI IE(•INTEGER ARRAY*»IA)S 
WRiIt( 'STRING ARRAY* »SA)S 
COMMENT TEST CARO PUNCH* 

WRIT E(PuNCH»IA)$ 

ENDS 

Printer output: 


1 . 0000.+001 


4 5 


Punch output: 

1 2 3 4 5 


1= 10 R- 1.0u00.+01 R2= 

UH- TRUE FALSE FALSE TRUE 

C= 1.0000»+00 0.0000»+00 

S= ARCuEF 

UVWXYZ 

INTEGER ARRAY l 2 3 

STRING ARRAY 1 2 3 4 5 
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F.3. FILE HANDLING (Section 9.7) 

The general form of I/O call is: 

< I/O Procedure > (< device> , < format > ,< modifier list > ,< parameter list >, 

< actual label list>) 


where: 

<1/0 Procedure >is either READ or WRITE 
<device>is CARD, PRINTER, PUNCH, TAPE or DRUM 

< modifier list>see section 9.8.2.1. 

parameter list>is a list of all of the I/O variables of lists 

< actual label list>see section 9.8.3 

When the device is TAPE or DRUM the above call takes either of two forms: 
Sequential files: 

<1/0 Procedure> (TAPE(file number), modifier list, parameter list, <actual label 
list >) 


Random files: 

<I/P Procedure> (DRUM(location), parameter list, label list) 
where: 

location is an integer specifying the location relative to the beginning of the file 
at which the I/O operation is to begin. 

Since the information in a sequential file is written out in blocks containing various 
extra words that specify information about the block, one should be careful about 
accessing the same file both randomly and sequentially. 


F.3.1. Sequential Files (Section 9.7) 

Six tape files and 16 tape-simulated frum files exist as follows: 


FILE NUMBER LOGICAL TAPE UNIT 


0 

1 

2 

3 

4 

5 


6 

7 

8-9 

10-13 

14-21 


A 

B 

C 

D 

E 

F 

FILE SIZES ON DRUM 

All of User PCF 
User scratch area 
l /2 scratch area 
% scratch area 
1/8 scratch area 
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Magnetic Tape: 

To use the tape files a tape assignment must have been made in the run stream 
(i.e., @ ASG B = scratch) for each tape unit being used. The parameter to the 
device TAPE identifies the specific logical tape unit to be used. 

The statement WRITE (TAPE(1),A)$ would write the information in the output list 
•A' to logical tape unit 'B 1 . Each WRITE statement writes a ‘logical record’ on 
the tape which may contain one or more ‘blocks’ of information (see section 9.7.1). 

To retrieve the information the tape would first have to be rewound with REWIND 
(TAPE (1))$ and then read back with READ (TAPE (1),B)$ to input list 'B *. Each 
call on READ reads one logical record from the tape. The input list may be shorter 
than the logical record being read. In this case, the next READ would start at the 
following logical record and the information remaining in the last record would be 
lost. If the input list is larger than the logical record, an attempt would be made 
to .read past the end of record while trying to fill the input list and the operation 
would be terminated with an error message. 

Example: 


BEGi si 

COMMENT 1 APE TEST: WRIT E/REAO INTEGER ARRAY TO LOGICAL UNIT f 6 1 $ 
INTEGER I % 

in i Eger array ia ( i : 100) t it* (1:100)$ 

FOR 1=( t f1 9 100 ) 00 IA(I)=i$ 

WRi I E (TAPE ( I ) * I A ) 4> 

REwINO(T APE (1) ) $ 

RE At) ( TAPE (1 ) f IB ) $ 
irVki IE ( f (B= f f IB) $ 

ENLRE 


or the program could be written using the following statements: 


INTEGER B* 

B-i* 

WKliE(TAPE (6)tI A )% 
REWIND(TAPE(B))$ 
KE/U) ( TAPE ( B ) t 13) % 


Tape-Simulated Drum: 

This device is essentially a number of files on drum which are treated like tape 
files. The device name TAPE is used with device numbers 6 thru 21 to access the 
16 drum files. 

Since the tape-simulated drum is treated like tape the REWIND and POSITION 
procedures as well as the modifiers KEY, EOF and EOI may be used. 

The actual drum addresses for the tape-simulated drum files have not been speci¬ 
fied since these would vary with each user’s configuration. However, the files are 
correctly configured with each run by the ALGOL library no matter what the user’s 
configuration. 
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The sample program which follows illustrates the write/read of an array to tape- 
simulated drum. The device number 7 specifies the user scratch area as the drum 
file. 

Example: 

Bt.G 1N 

COMMENT TAHE'-S I MULCTED DRUM TEST* 

InUGER 13. 

INUGER ARRAY IA (11100 ) » 1B (1:10 U ) * 

FOR l=(lflfl00) 0U IA <I» =1S 
WKlle (Tape (7) .IAH 
REw INL) ( 1 APE (7) )S 
REALM TAPE(7)dB)$ 

WKi1L(*lB-*fIB)* 

ERL)* 


F.3.2. Random Access Files (Section 9.7.2) 

This device is the random-access drum which uses the entire processor scratch 
area. Here the parameter to the drum call is an address which is relative to the 
start of the file. For example, the statement WRITE (DRUM (0),A)$ would cause 
the output list 'A' to be written starting at the initial drum address of the processor 
scratch area. If the parameter were TOO', the output list 'A' would be written start¬ 
ing at the initial address plus 100 locations. Thus, the user may randomly read or 
write to any area within this drum file by varying the parameter to the drum call. 

Section 9.7.2 discusses the number of locations occupied by each word written to 
drum. The following example illustrates the flexibility available with the random- 
access drum. 

Example: 

BEGIN 

COMMENT RANDOM-ACCESS DRUM TEST* 

INTEGER 1* 

INTEGER ARRAY IA ( 1 *. 1 00 ) »IB (1J100 ) * 

in r eger array icdiio)* 

FORMAT F(* IB=*.10(i0 14.A 1)* A1)* 

FORMAT Fl( , lC='rlUl4»Al)* 

FOR I=(l'l»100) DO I A(I)-1* 

WKi IE (DRUM 0) * IA)* 

READ(DRUM(0),IB)* 

WRITE(F,ID)* 

READ(DRUM(SO)»I )$ 

WKI»E< »I = * »I)* 

READ (DRUM(20)rIC)S 
W RI I E ( F 1 > l C ) * 

END* 
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Printer output: 


1 = 
U: 


- 

1 

2 

3 

4 

b 

6 

7 

8 

9 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2b 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

<41 

42 

4 3 

44 

45 

4 6 

4 7 

4 8 

49 

50 

SI 

S 2 

S3 

54 

55 

b 6 

57 

58 

59 

60 

o 1 

62 

fc>3 

64 

65 

66 

67 

68 

69 

70 

n 

72 

73 

74 

75 

76 

77 

78 

79 

80 

ai 

62 

83 

84 

65 

86 

87 

88 

89 

90 

01 

92 

93 

94 

95 

96 

97 

98 

09 

100 






bl 





- 

21 

22 

23 

24 

<^b 

26 

27 

28 

29 


10 


< 


F.3.3. Special Devices (Section 9.7.3) 

Five special devices also exist with TAPE as follows: 

TAPE (22) — Printer 

TAPE (23) - Card Punch 

TAPE (24) — Card Reader 

TAPE (25) - Card RE-READ 

TAPE (26) — ‘Continuous-String’ Card Read 

Device numbers 22, 23, 24 are the equivalent of using PRINTER, PUNCH and 
CARDS, respectively. Device number 25 is used to re-read a card. If a card was 
read with the device CARDS or TAPE (24) it could be read again by using TAPE 
(25). Device number 26 works in the paper-tape mode, treating the cards as a 
‘continuous-string’ of data and not reading a new card until the previous one has 
been completely scanned. 

Example: 


BtOiN 
COMMENT 
INTEGER 
in i lger 


If: ST SPECIAL DEVICES 
A f B t C p 0 t E »E S 

array lA(i:5)'lH(i:b>% 

KLaD{TAPE (24 )r IA ) S COMMENT CAPO HEADS 
Rt.AU.(TAPE(2S> »IB)S COMMENT CARD RE-READS 
WR1IE(TAPE(22)r'XA=»»IA)S COMMENT PRINTERS 
WRITE(TAPE(22)r *IB=* »1B)S 

REAL) ( T APE (2b ) r A »8 »C ) $ COMMENT 'CONTINUOUS-STRING* 
RE AD(TAPE(26)»D *E * F)S 

WR I I E ( TAPE ( 22 ) r ' ABCOEF= ' » A » B»C »0»E'» F ) S 
wK 1 I E ( Tape (23 ) r 1A ) S COMMENT I’UNCHS 
ENDS 


CARD READS 
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Input data cards: 


1 2 
111 

3 4 5 

222 333 

444 

5 b b 

666 


1A = 

Printer output: 

1 

2 

3 

4 

5 

16 = 

1 

2 

3 

4 

5 

ABCU£F= 

111 

222 

353 

444 

555 


Punch output: 

1 2 3 4 5 


F.4. POSITION PROCEDURE (SECTION 9.8.2.2) 

The underscored lines in these paragraphs show where EXEC II operation differs 
from EXEC 8 operation. 


666 


The procedure POSITION positions a file to a previously written KEY or EOF record, 
to the end of information, or advance it over a given number of ordinary records. The 
call is: 

POSITION ( TAPE(file number), position parameter, label list) 

where the position parameter is: 

EOF ( <expression >) 

-EOF (< expression >) 

KEY ( <expression >) 

-KEY ( <expression >) 
integer expression 
EOI 
-EOI 


The direction of positioning is indicated by the sign of the position parameter, posi¬ 
tive for forward and negative for backward. If the position parameter is EOI, the file 
is positioned to the next EOI mark. If the position parameter is an integer expression, 
the command advances over that many logical records ignoring KEY records, but it 
will not position beyond an EOF block or EOI mark. Also the position backward to 
an EOF or KEY record cannot be used with tape-simulated drum . 

Key records are also ignored when encountered by a READ statement. Abnormal exits 
from the POSITION procedure are listed in section 9.8.3. 

The procedure POSITION always positions over the record it is looking for in the 
direction indicated. Therefore, a position backward to an EOF block must be followed 
by another position forward to get past the EOF before the next record can be read. 


va 
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Example: 


BEGIN 

COMMENT TAPE PQSIIION TESTS 

SI KING A(12)r 3 (12 )r C ( 12 )*0(12)»E(12 ) S 

LOCAL LABEL DONES 

a='Aaaaaaaaaaaa»s 

B= * 0BB8BBBBBBBB•S 

C='CCCCCCCCCCCC'S 

D=* DODDODODDDOD♦$ 

WK1 ft (TAPE (1 ) t KE.Y ( « A * ) r A) S 

WK11 E ( TAPE ( 1) »KEY (2 ) » EOF (2 ) »B) S 

toKlTE(TAPtd) r KEY rC ) S 

WK1TE(T APE(1)»KEY(4)»EOI»U)S 

KEwIND(TAPE(1))S 

POSITION(V APE(1) r 1) S COMMENT POSITION OVER 1ST RECORDS 
READ(TAPE(1) i E)S COMMENT READ 2ND RECORDS 
WRITE (MSI REAO=ME)S 

POS ITI ON ( I APE (Dr EOF ( 2 ) ) $ COMMENT POS I 1 I ON OVER EOFS 
HE ALU TAPED ) rE)S COMMENT READ 3RD RECORDS 
WRITE (’2ND READ='»E)S 

POSITION'D APE(1)rK£Y(4) )S COMMENT POSITION OVER KEYS 
READ(TAPE( 1 ) r E ) S COMMENT READ 4TH RECORDS 
WR1 TE ( * 3RD READ=ME)S 

POSITION(TAPE(1)»-EOF(2))S COMMENT POSITION BACKWARDS TO EOFS 
WRITE ('EOF 2MS 

POSlTIOtNO AP£( 1) r-KEY (A) )S COMMENT POSITIION BACKWARDS TO KEYS 
wRI 1E( 'KEY AMS 

READ(TAPED) »E)S COMMENT READ 1ST RECORDS 
WRI T£( ' 4 TFi READ=» »E)S 

POSIfION(1 APE(1)» 3»DONE)S COMMENT POSIT ION SHOULD STOP AT EOFS 

REaD(TAPED) »E ) S 

WRITE!* ST h READ='rE)S 

DONE: WRITE('ENCOUNTERED EOF')S 

ENOS 


The tape layout would appear as: 

************ 

KEY A 

aaaaaaaaaaaa 

************ 

KEY 2 

bbbbbbbbbbbb 

EOF 2 

* * * + * ******* 

KEY 0 

CCCCCCCCCCCC 

************ 

KEY 4 

ODOUDDOODUUD 

E01 

************ 
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Printer output: 


1ST 

READ= 

2ND 

KEA0= 

3KD 

KEAO= 

EOF 

2 

KEY 

A 

4 T H 

REAO= 

ENCOUNTERED 


6BBBB08BB8SB 

CCCCCCCCCCCC 

ODDDODDOODDU 


AAAAAAAAAAAA 
EOF 


F.5. MARGIN PROCEDURE (Section 9.8.3.4) 


This procedure provides a means of altering the margin settings on the printer. The 
general form of the call is: 

MARGIN (< length >,< top > ,< bottom > ,< message >) 


where: 

<length>is number of lines per page 
<top> is top margin line 

<bottom >is last line to printed relative to the top of the page 

<message>is an optional string parameter which causes a message to be typed on 
the console when the printer is activated. 


Example: 

MARGIN (66*4*62 1 TESTING MARGIN ROUTINE 1 ) 

F.6. SOURCE CODE FORMAT (SECTION 10.1) 

The source language statements to the compiler must come initially from punched 
car ds. Only columns 1—72 are read for information, anything following column 72 
is considered to be a (space) delimiter. Columns 73—80 can be used for any purpose 
desired, e.g., short comments or serial identification. There is no restriction on 
placing statements on a card but the usual practice is to arrange them for easy 
reading and modification. The full 80 columns may be utilized for input data at 
execution time. 
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F.7. CARD OPTIONS (Section 10.2) 

The ALGOL compiler operates like all the processors in the UNIVAC 1106/1108 

Operating System and, besides the standard options, includes some unique to itself. 

The available options are: 

A Accept the results of compilation even if errors were detected. 

I Single spaced listing of ALGOL source statements. 

L The compiled assembly language instructions are listed along with the source 
code. 

N (or lack of any other print option) Suppress all printing by the processor. If 
‘N’, disregard any other print option. 

T Print the timing for phase 1 and 2 of compilation. 

X Abort the run immediately if any error is found. 

Z Delete the formation of run-time diagnostic information. 

0,R References to subscripted variables normally generate a call to a library pro¬ 
cedure. This procedure, besides calculating the proper address, also checks 
that the requested operation is legal (i.e., that the subscript variables are in 
the range of the declaration). With the R option (remove checking) this check¬ 
ing is not done but the address calculation is, thus giving greater speed to the 
object program. The O option (open) is even faster in that the necessary coding 
to calculate the address is compiled in line, thus removing the call and return 
times from the reference. Of course, the O option requires more main storage. 
When the program is working, and if the subscript expressions are not data- 
dependent, then the R option should be used. If main storage permits, the O 
option should be used. Neither should be used when the program is being de¬ 
bugged. 

B Inhibit the printing of block diagnostics. Without this option each statement 
that begins a block is preceded by the message 

BLOCK XX LEVEL YY 


where xx is a serial block number and yy is its static depth. Each statement 
ending a block is preceded by 


END BLOCK XX 


In addition each BEGIN-EMD pair is tagged with the message 
Bnn and Enn 

where nn is a serial count of the pairs. 

D Indicates compilation of a SIMULA program which is to be executed using the 
SIMULA-TRACING system. 

G Indicates compilation of a SIMULA program (refer to the UNIVAC 1108 Multi- 
Processor System SIMULA, Programmers Reference Manual, UP-7556 (current 
version). 
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‘ALG’ statement: 

This is a method to change options and control print-out spacing during com¬ 
pilation. Sample calls on this routine are: 

ALG L,—1$ — sets ‘L’ option, turns off ‘V option 

ALG LINE 20$ — skips 20 lines 

ALG PAGES — ejects to top of next page 


Sample EXEC II ALGOL Run Deck: 


ft RUN PR0G101ACCTNG 

ft ASG A=1234 

ft XQT CUR 

ERS 

IN A 

PEF A 

IN A 

ftAKV ABS ALGSIM/MAP#ALG 

ft XQT CUR 
ERS 
PEF A 
IN A 
TRI A 

ftlJ ALG TEST 


ASSIGN STANDARD ALGOL 6-FILE TAPE 

CALL COMPLEX UTILITY ROUTINE 

ERASE USER PCF ON DRUM 

READ IN RELOCATABLE COMPILER ELEMENTS 


CREATE ABSOLUTE VERSION OF COMPILER AND PLACE IN 
ALTERNATE PROCESSOR AREA ON DRUM (K+V OPTIONS) 


READ IN RELOCATABLE ALGOL LIBRARY 

COMPILE ALGOL PROGRAM ( f J f OPTION CAUSES PROCESSOR 
IN ALTERNATE PROCESSOR AREA TO BE USED) 


ALGOL Program on Cards 

ft XOTfA TEST 

Data Cards 

ft FIN 

To compile an ALGOL program already in the user PCF: 
ftlJ ALG#* TEST 


To compile an ALGOL program from tape (assume tape assigned to logical unit C): 
ftlJ ALG#C TEST 

To compile and execute a SIMULA program: 

ftIGJ ALG 1EST 
ft XGT#S TEST 

To compile and execute a SIMULA program using the SIMULA-Tracing library: 
ft IDGJ ALG TEST 
ft XGT#T TEST 


12 
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F.8. STANDARD PROCEDURES AND TRANSFER FUNCTIONS (Appendix B) 

The standard procedures and transfer funcitons under EXEC II are identical to 
those under EXEC 8 except that, under EXEC II, the type of parameters for the 
MAX and MIN procedures are as follows: 


NAME 

NO. OF 
PARAMETERS 

TYPES OF 
PARAMETERS 

RESULT 

TYPE OF 
RESULT 

MAX 

List of expres¬ 
sions 

REAL, INTEGER 
REAL 2 

Algebraic 
largest 
element of 
list 

REAL 

MIN 

List of expres¬ 
sions 

REAL, INTEGER 
REAL 2 

Algebraic 
smallest 
element of 
list 

REAL 


F.9. INPUT/OUTPUT PROCEDURES 

This section describes input/output procedures under EXEC II where they differ 
from the corresponding operations under EXEC 8. 

F.9.1. Input Procedure Statement (Appendix G.7.1) 





Explanation 1 : A call on procedure READ reads data from the specified input 

device into the variables indicated by the list elements. The desig- 
national expressions are used as exit points in case end-of-file 
or end-of-information conditions are met on that device. Note that 
READ( ) is a legitimate statement but the effect is the same as 
“No operation”. 
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Examples: 

KtAO(CARDS r LEOF t LEOT* A * B r C>Sr EPSILON) $ 
KEAD(DRUMUNDEX) t FOR 1= (1' l.r KMAX ) DO FOR J=(lfl»LMAX) 
00 ERG(If J)) % 

READ(DATE) $ 

F.9.2. Output Procedure Statement (Appendix G.7.2) 




Explanation': A call on procedure WRITE outputs the values defined by the list 

to the device specified. Modifiers (KEY, EOF, EOI) produce special 
marks on tape. A format controls editing on paper and punched cards. 
The designational expression is used as a return point if the output 
device functions abnormally. Note that WRITE( ) is the same as 
“No operation”. 

Examples: 

WKI IE (PRINTER * FlOr FOR I = (1»1»N) DO A(I,J>) 3. 

WRITE (’CHECKPOINT CHARLIE'»A) $ 

WRI TE ( TAPE( 0)r KEY( I )» ABORTLAB » DUMPLIST) % 

WRITE (TAPE( OUTPUT )» EOF (’LAST *)» EOI ) S 
















Explanation: The procedure POSITION positions a tape forward or backward a 

number of records or searches for a KEY, EOF, or EOI marker. The 
designational expressions are used as exits in case the search 
fails. 

Examples: 

c 

POSITION (TAPE(O)f -2> * 

POSITION (T APE <INPUT)# KEY ('PRICES A80R I ) $ 

POSITION (T APE(OUTPUT)» EOI) $ 
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APPENDIX G. SYNTAX CHARTS 


Gl. GENERAL 

This appendix summarizes the syntax of the UNIVAC 1106/1108 ALGOL 60 compiler 
in chart form. Charts for the input/output procedures are also included as well as a 
brief description of possible format specifications. 

The use of the charts is very simple and almost self explanatory. The concept being 
defined is specified in a rectangle at the top of each chart. 


type declaration 

The definition consists of a series of symbols connected by lines indicating the flow of 
symbols which define the concept. Two kinds of symbols are used: those with round 
corners (or circles) and those with square corners. The round-cornered boxes contain 
symbols that stand for themselves. Square-cornered boxes contain names of concepts 
which are defined elsewhere in the chart and may be found by a quick reference to the 
Table of Contents for the appendix. 

In some places a special “or” symbol has been used to conserve space. It should be 
understood as follows: 



In some sections a pair of letters may mark two spots in a definition. Underneath that 
section that letter pair followed by a name appears. This means that name will be used 
in lieu of the string of symbols between the letter pair in other charts. 

The charts use only one of the two possible representations for some symbols in ALGOL. 
The following equivalences should be noted: 

Symbol used in this chart Alternate representation 

( [ 

) ] 

GO TO GO or GOTO 

$ ; 

In addition, comments may be inserted in the program by means of the following equiva¬ 
lences: 


$ COMMENT <any sequence not containing a $>$ equivalent to $ 

BEGIN COMMENT <any sequence not containing a $>$ “ ” BEGIN 

END <any sequence not containing END or ELSE or $>$ “ ” END 

The charts make no mention of the use of spaces within ALGOL. A space has no mean¬ 
ing in the language (outside of strings) except that it must not appear within numbers, 
identifiers, or basic symbols, and must be used to separate adjacent symbols composed 
of letters or digits. Spaces may be used freely to facilitate reading. 








Explanation: A program is a complete set of declarations and statements which define an 
algorithm for solving a problem. The logic of this algorithm (its correctness) 
is the business of the programmer. The compiler only checks that the syntax 
(form) is correct. 

A UNIVAC 1106/1108 program is simply an ordinary program without 
the outermost BEGIN-END pair. 

Notice that the $ is used to separate declarations and statements and is not 
inherently a part of a declaration or statement. Nevertheless, it will be shown 
in most examples for clarity. 
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Explanation: There are 10 types of declarations each of which is defined in detail on the 
following pages. 








UP-7544 



Appendix G 

4 

Rev. 1 

UNIVAC 1106/1108 ALGOL 


SECTION! 

PAGE: 


G3.1. 


Type Declaration 



Explanation: A type declaration declares the mode of arithmetic that the following identifiers 

will assume in the block. Types REAL 2 and COMPLEX associate two 1108 words 
with the identifier, the others one. Upon entrance to a block, identifiers are 
given the value zero, unless they are also declared OWN, in which case they 
have the same value they had on the last exit from the block. 

Examples: 


INTEGER I4»PAK»L00PCNT $ 

OWN BOOLEAN ANYLEFTfLASTOUT $ 
COMPLEX CrCINVS $ 

REAL 2 DP $ 

OWN REAL QINrQOUTrMAXITEM $ 












UP-7544 


Rev. 1 


UNIVAC 1106/1108 ALGOL 


Appendix G 


SECTION: 


PAGE: 


5 



G3.2. 


Array Declaration 



bound pair list 

CC 

bound pair 

UU 

upper bound 

LL 

lower bound 


Explanation: 


An array declaration associates an identifier with a one-dimensional or larger 
matrix of values. The arithmetic expressions define the lower and upper limits 
of each dimension. The type plays the same role as for simple variables. If 
omitted, type REAL is assumed. 


Examples: 


COMPLEX ARRAY CC0N4 (0JN)»CPI(1JN+l> $ 

BOOLEAN ARRAY BAND>B0R*BX0R(-4:4) $ 

REAL ARRAY B(1-1J1+1>*XINITIAL»YJNITIAL<-N!N»-NSN»1J 2 > * 
OWN INTEGER ARRAY IC12 5)»JrK»L(ENTIER(X)I PI 12) $ 

ARRAY XY24(15N*2) $ 
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G3.3. String Declaration 



Explanation: A string declaration associates an identifier with a variable whose value is a 
string of characters. The number of characters in the string must be less than 
4096. A group of characters of a string may be named as a substring. 

Examples: 

STRING ST1(36)»NAME(INITIALS(2)»LAST(16)) $ 

STRING PI(N+2)»QUOTE(1) $ 

OWN STRING NEXTOUT(80) $ 

STRING ALPHA(BETA(2»GAMMA(4)»2)»DELTA(EPSILON(6))»20) $ 
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G3.4. 


String Array Declaration 



< 


Explanation: A string array is a matrix whose elements are strings. Appended to the length 
part of the declaration are the bound pairs for each dimension, just as for an 
ordinary array. 


Examples: 

STRING ARRAY SA( 80J0 i 100 ) r CARD(LABEL( 8) »OPC6)r Zt OPERAND(64)5 1 :N) $ 
OWN STRING ARRAY LASTFILE (CLENGTH*. 1 : 507) $ 













Explanation: A switch declaration associates an identifier with an ordered list of designational 
expressions. A switch is used to transfer to a label depending on the value of 
some variable. 

Examples: 

SWITCH JUMP = LI * START rFEIL4rCALC $ 

SWITCH BRANCH = IF BETA EQL 0 THEN LI ELSE JUMP(J)rSTART $ 
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G3.6. 


External Procedure Declaration 


external procedure declaration 


type 




Explanation: This declaration specifies a list of identifiers which are to be the names of 

procedures not found in the program. These procedures may be written in assembly 
language (NON-RECURSIVE), FORTRAN or ALGOL. The type of the external 
procedures is specified if they are functional procedures. 

Examples: 


EXTERNAL FORTRAN REAL PROCEDURE CBRT $ 

EXTERNAL FORTRAN PROCEDURE NTRAN*INVS $ 

EXTERNAL PROCEDURE ROOTFINDERrKEYINGKEYOUT $ 
EXTERNAL NON-RECURSIVE PROCEDURE TYPEIN*TYPEOUT $ 
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procedure declaration 


G3.7. 


Procedure Declaration 



Explanation: A procedure declaration associates an algorithm with a procedure identifier. 

The principal constituent of a procedure declaration is a statement which is 
executed when the procedure is “called” (see 7.4). The procedure heading 
specifies that certain identifiers appearing within the procedure body are formal 
parameters. A parameter may also be specified as “VALUE” in which case 
the procedure statement, when called has access only to the value of the corre¬ 
sponding actual parameter, and not to the actual parameter itself. 


Examples: 


PROCEDURE ZEROSET (A#N) $ 

VALUE N $ INTEGER N $ ARRAY A $ 

BEGIN COMMENT THIS PROCEDURE ZEROES AN ARRAY ASSUMED 
DECLARED ARRAY A(1JN) $ 

INTEGER I $ 

FOR I = 1 STEP 1 UNTIL N DO Ad) = 0 END ZEROSET $ 

INTEGER PROCEDURE FACTORIAL (NUMBER) $ 

VALUE NUMBER $ INTEGER NUMBER $ 

FACTORIAL = IF NUMBER LSS 2 THEN 1 ELSE NUMBER * FACTORIAL 
(NUMBER-1) S f 

BOOLEAN PROCEDURE BOOL $ V 

BOOL = NOT (FINISHED AND OFF OR FIRST AND LAST) $ 

















The local declaration is a preliminary declaration of identifiers before they are 
actually declared (or, in the case of a label, used). This is necessary to allow 
forward references, use of an identifier before it has been defined. 


Examples: 


LOCAL LABEL LI'ENDFILE $ 

LOCAL SWITCH SALPHA $ 

LOCAL BOOLEAN PROCEDURE SLASH*ENDTAPE $ 


c 
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Explanation: A list defines an ordered sequence of expressions and array identifiers. A list 
may only be used as a parameter to a procedure, and, ultimately, only be a 
procedure written in some language other than ALGOL. 


LIST OUT (A+1»N+1»F0R I = (1 , 1»NMAX)DO<Q(I)»QRES(I))) $ 
LIST L1(A»B»C)»L2(IF M0D(Q»2)EQL 0 THEN B ELSE Q) $ 


Examples: 














Explanation: A format is a special string of symbols which are passed on to an input/output 
routine for editing and control. Integers in front of a format code specify the 
number of times that code is to be repeated. 

Examples: 

FORMAT NEWPA6E(Er»X-COORDINATE'*X28>•Y-COORDINATE*»Al) * 

FORMAT REP(5(4 R16.8>A1)»AO.2» S12t ♦=♦»DlO.1>S12»*=♦f r 10.1 t A1) $ 
FORMAT VECTOR (10T10,4»A1>'PATTERN<»SWITCHES ARE*'8B^»A1) $ 
FORMAT MATRIX (JNJ<JMS(D4.2»Al))> $ 




















Explanation: Statements define the sequence of operations to be performed by the program. 
The eight types of statements are each defined in the following pages. 
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block 


G4.1. 


Block 





Explanation: A block automatically introduces a new level of nomenclature by a set of 
declarations. This means that any identifier declared in the block has the 
meaning assigned by the declaration, and any entity represented by such an 
identifier outside the block is completely unaccessible inside the block. The 
identifiers declared within a block are said to be local (to that block) while 
all other identifiers are nonlocal or global to that block. 


Example: 


UBE6IN INTEGER ARRAY A C X : 10 ) $ 

A (1) = 1 $ 

FOR J = (2*1*10) DO A (J) = A(J-1)+ J $ 
FOR J = (1*1*10) DO WRITE (J*A(J)) $ 


END $ 
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G4.2. Compound Statement 



Explanation: A compound statement serves to group a set of statements by enclosing them with 
a BEGIN-END pair. This group is then treated as a single statement. 

Example: 

L3EGIN T= U * FOR I = 1 STEP’ 1 UNTIL M DO 
T= b(J»I) * C ( I» K) +T $ 

IF T GTR 820 OR OVFLOW THEM GO TO SPILL * 


ENL)t> 
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Explanation: An assignment statement assigns the value of the expression on the right-hand 
side to the variable and procedure identifiers on the left-hand side. A procedure 
identifier is only permitted on the left-hand side if the statement appears in the 
body of that functional procedure. If any of the left-part variables are subscript¬ 
ed variables, they are evaluated before the expression is evaluated. Transfers 
of type are automatically evoked when necessary. 

Examples: 

Ad) = B(I) = &35 $ 

AANDB = A AND B OR EPS1 GEQ EPS2 $ 

P = SORT(B**2 - 4*A*C) $ 

T = S - MY0*EPS0*(2*PI*F)**2$ 

S(V>K-2) = COSlANGLE) + 0*5 ♦(IF SI THEN K**3 ELSE K*%5) $ 

NAME(1» 6:P + 1) = 1 IFTHEN 1 $ 
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G4.4. 


GO TO Statement 


[GO TO statement 



Explanation: A GO TO statement transfers control to the statement with the label determined 
by the designational expression. 

Examples: 

GO TO PART4 $ 

GO TO OPS (1-2) $ 

GO TO IF ALPHA GTR 0 THEN Q17 ELSE JUMP(-ALPHA> $ 

GO TO TRACK (IF M0D(P»2) EQL 1 THEN I ELSE A(I)) S 












UP-7544 


Rev. 1 


UNIVAC 1106/1108 ALGOL 


Appendix G 

SECTION: 


PAGE: 


19 



G4.5. 


Conditional Statement 


conditional statement 



< 


Explanation: The IF statement causes the execution of one of a pair of statements depending 
on the value of a Boolean expression. If this expression is TRUE then the 
statement after the THEN is executed and the statement after the ELSE is 
skipped. If FALSE, then the statement after the ELSE is executed, if the 
ELSE clause is present. 

Examples: 

IF Cl GTR 10 THEN A(0*0) s KMAX(J) ELSE GO TO LOOP $ 

IF BOOL(J) IMPL BOOL (J+l) THEN STEP(J) = ’VALID* ELSr STEPU) = 
’INVALID’ $ 

IF I GEQ 0 THEN BEGIN FOR K = -I STEP 1 UNTIL I DO B(K) = -COS(A-I) $ 

SUM = ADDUP(B) END ELSE 

BEGIN IF I EQL -1 THEN GO TO ERROR ELSE 
GO TO NEXT END $ 
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G4.6. 


FOR Statement 


FOR statement 



Explanation: The FOR statement controls the execution of the statement following the DO 

a number of times while the variable to the left of the = is assigned the values 
determined by the FOR list. The (,,) construction is equivalent to the STEP- 
UNTIL construction. 


Examples: 


FOR 1=1 STEP 1 UNTIL N DO FOR J = 1 STEP 1 UNTIL M DO 
A (I»vJ) = 0 $ 

FOR S - S + 1 WHILE P(S) NEQ »A» AND S LEO 80 DO BEGIN 

N=N*10 + P(S) $ IF OVFLOW THEN Go TO 
SIZERR END $ 

FOR S = (1»2*S-S» 2**10)DO IF LOGAND(S»VAR) 

THEN GO TO YES *• 




















< 


Explanation: A dummy statement does nothing. It may serve to place a label. 
Examples: 


FOR I = (1r1»N) DO FOR J = (lrl»N> DO BEGIN 
IF I EQL J THEN GO TO ENDLOOP $ 


... $ ENDLOOP: END $ 

S = 0 S 

FOR S = S + 1 WHILE P(S) NEG 'A» DO $ 













Explanation: A procedure statement is a call on a declared procedure. The actual parameters 
of the call replace the formal or dummy parameters throughout the body of the 
declared procedure. If the corresponding formal parameter has been “VALUE” 
specified then only the value of the actual parameter is used by the procedure. 

Examples: 


MARGIN (62*56*4) $ 

P(A*B*C*I*J*K) $ 

ROOTFINDER (N*0*ERGDET*KOEF*-4&&0*&&-5*5,0&&-1* 1000) $ 












UP-7544 



Appendix G 

23 

Rev. 1 

UNIVAC 1106/1108 ALGOL 


SEC TION: 

PAGE: 


< 


G5. 


Expression 




Explanation: There are three types of expressions, classified according to their values. An 
arithmetic expression has a numerical or a string value, a Boolean expression 
is either TRUE or FALSE, and a designational expression has a label as a 
value. 
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dix 


G5.1. Variable 


variable identifier 


array identifier 


arithmetic expression 


string identifier 


arithmetic expression 


arithmetic expression 


string array identifier 


subscript list 


substring part 


LLa subscript list 


SS: substring part 


Explanation: A variable is a designation given to a single value. A variable identifier 
is a variable named in a type declaration. 


Examples: 


DELTA 
BOOLV(7) 

CARD 

CARD<4) 

CARD(I# 6) 

A(P(4) t N*SIN(ANG)»3) 
CUROUT( JrK> 

CUROUT(11J r K) 

CUROUT(1»61 JrK) 
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G5.2. 


Function Designator 



( 


Explanation: A function designator defines a single numeric or logical value by applying 

the rules of the procedure declaration to the actual parameters. Only a procedure 
which has a type associated with it can be a function designator. Besides 
those functional procedures declared in the program, several standard ones 
are available for use without being declared. 


Examples: 


CLOCK 

ARCTAN(l.O) 
BACKSLASH(A1* A2) 
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Arithmetic Expression 


arithmetic expression 




Explanation: An arithmetic expression is a rule for computing a numerical value. 
Examples: 

A(4) + 2 * SQRT(D**3) - DELTA 
IF A LSS &-5 THEN 0 ELSE A&+5 

Q(M0D(N»2) + 1) * (IF FIRST THEN 10 ELSE RATlO)//3 
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simple Boolean expression 


Explanation: A Boolean expression is a rule for computing a logical value. 

Examples: 

FIRST AND NOT SPECIAL 
A LSS DELTA OR ITERATIONS GTR MAXN 

IF BETA THEN TRUE ELSE IF STEP(I) IMPL STEP!!*!) THEM OVALUE 
IF BETA THEN TRUE ELSE IF STEP(I) IMPL STEP(I+1) THEM QVALUE(P*I) 
ELSE OVALUE(P»I-l) 

















Explanation: A designational expression is a rule for computing the label of a statement. 

A switch identifier followed by an arithmetic expression in parenthesis 
refers to the label in the corresponding position in the switch declaration. 

Examples: 



L10 

IF BETA THEN CALC ELSE NEXT (K//2) 
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G6. BASIC ELEMENTS 


Identifier 

Letter 

7 

Letter 

String 


Digit 


identifier 




variable identifier 


array identifier 


string identifier 


switch identifier 


list identifier 


string array identifier 


procedure identifier 


format identifier 


label 


identifier 


letter 


i 


<* 


I B | c 

D | E 

F 1 

G 

H 

i |j 

K 

L | M | N | O 

p | Q 

1 R 

S 

T 

u | V 

W 

X 

Y 




letter 

string 


Z 


letter 


7 


I digit | :: = 


h 

1 2 

1 3 

U 

5 

6 

7 1 

8 


D~ 


Explanation: An identifier is a name chosen to represent a variable, array, etc. Only the 
first 12 characters of an identifier uniquely define it. 

Examples: 


P47 

DELTA 

SQRTR000F2 

E1C4PDQ 
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Explanation: A number is written in its usual decimal notation with the conventions of 8s for 
power of ten and corner brackets for complex numbers. Numbers are of four 
types. REAL, INTEGER, REAL 2 and COMPLEX. REAL 2 is differentiated 
from REAL by use of && for power of ten, or there may be between 9 and 18 
digits in the fixed point part. COMPLEX numbers are distinguished by the 
comer brackets, where the first number is the real part and the second the 
imaginary. 

Examples: 

1 

-1009 

-.4031 

3.1459 

-18*084 

-< 1 » 0 > 

208-5 

+1800.880 

8-6 

+< -•06» S-2> 
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Explanation: A string constant is any string of characters which are used as parameters 
to procedures or with string variables. 

Examples: 

•DOGGENBURG STR. 22* 

’ NEQ * 

•BJARNE WIST* 

*227 KALPHA* 

•REAL ARRAY* 

< 



Explanation: A logical value is a Boolean constant. 


c 
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G6.4 


Delimiter 


V. 



AA: 

RR: 

LL: 

SS: 


arithmetic operator 


relational operator 


Boolean operator 


sequential operator 


PP: 


separator 


DD: 

BB: 

CC: 


declarator 


bracket 


specificator 
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Explanation: A call on procedure READ reads data from the specified input device into the 
variables indicated by the list elements. The designational expressions are 
used as exit points in case end-ofTile or end^of-information conditions are 
met on that device. Note that READ( ) is a legitimate statement but the effect 
is the same as “No operation”. 

Examples: 

READ(CARDS*LEOF*LEOI>A*B»C'S^EPSILON) $ 

READ(FILE(INDEX )* FOR I=(1»1»KMAX) DO FOR J=(1»1»LMAX> 
DO ERG(I»J)) $ 

READ(DATE) $ 


< 


♦ See Appendix F.9.1 for op eration under EXEC II. 















Explanation: A call on procedure WRITE outputs the values defined by the list to the 
device specified. Modifiers (KEY, EOF, EOI) produce special marks on 
tape. A format controls editing on paper and punched cards. The designation- 
al expression is used as a return point if the output device functions abnormal 
ly. Note that WRITE( ) is the same as “No operation”. 

Examples: 

WRITE (PRINTER* F10* FOR I = <1»1*N>. DO A(I»J>) $ 

WRITE (* CHECKPOINT CHARLIE* »A> $ 

WRITE (FILE<»TAPE1*> *KEY(I> »ABORTLAB*DUMpLIST) $ 
WRITE (FILE <♦OUTPUT * > r EOF <♦LAST♦> r EOI> $ 


♦ See Appendix F.9.2 for operation under EXEC II, 




















( 

Explanation: The procedure POSITION positions a file forward or backward a number of 
records or searches for a KEY, EOF, or EOI marker. The designational ex¬ 
pressions are used as exits in case the search fails. 

Examples: 

POSITION (FILE(’TAPE*)»»2) $ 

POSITION (FILE(* INPUT*)» KEY(’PRICES*)»ABORT) $ 
POSITION (FILE(’OUTPUT’)» EOI) $ 


♦ See Appendi x F.9.3 for operation under EXEC II* 














Explanation: A call on procedure REWIND rewinds the specified files. The modifier 
INTERLOCK will cause all previously named files to be rewound with 
interlock (read/write protect). 


Examples: 


REWIND (FILE(* INPUT *)* FILE(♦OUTPUT*)) % 

REWIND (FILE(♦TAPEl *)t INTERLOCK* FILE( , TAPE2»)) $ 
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< 


G7.5. Summary of Format Codes 

A format code of the form Qw.d where Q is a letter and w and d are unsigned integers 
is interpreted according to the following table.. The integer w, except where noted, 
always specifies the width of the field under consideration. Also, Qw =Qw.O and 
Q = Q0.0. The word “print” has been used in the description of output action, but 
“punch” may be freely substituted. 


Letter 

Input 

Output 

A Activate 

Read one card 

Print the edited line, skipping w 
lines before and d lines after print¬ 
ing. (w and d ignored for punch). 

B Boolean 

Accept a logical value 
from the field either 

TRUE, FALSE, or 1,0. 

Print a Boolean expression as 
either TRUE or FALSE. 

D Decimal 

Accept a real value. If 
the actual number is of 
INTEGER type then insert 
a decimal point d places 
to the left of the right end of 
the field. 

Print a number with decimal 
point inserted and d digits after 
the decimal point. 

E Eject 


Eject the page to logical line 
w - 1. 

F Free 

Accept an unspecified 
number of values from 
the field punched in free- 
format mode. 


I Integer 

Accept an integer from 
the field. 

Print an integer to the base d 
(d=0 ~ d=10). 

R Real 

Same as letter D. 

Print d digits of a real number 
with decimal point and attached 
exponent part. 

S String 

Accept a string from the 
field. 

Pri nt a string. 

T Significance 

Same as letter D. 

Print the first d significant digits 
of a number with the decimal point 
inserted. 

X Skip 

Skip the field. 

Skip the field. 
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G7.6. Grouping of Format Codes 

Format codes may be repeated in execution by four methods: 

(a) Placing an unsigned integer in front of a format code: 

7D9* 2 

This has the same effect as if the phrase D9.2 was written 7 times. 

(b) Enclosing a group of format codes in parentheses and placing an unsigned 
integer before the parenthetical expression: 

7(6R18t8tAl) 

This has the effect of expanding the phrase inside the parenthesis 7 times. 

(c) Similar to (b) above but using an integer or Boolean expression enclosed in 
colons before the parenthetical expression. The value of the expression deter¬ 
mines the number of times the enclosed code or group of codes is to be repeated: 

:NMAX//3«a; (6RX8t8rAl) 

(d) Enclosing a group of format codes in parentheses but not preceding this parentheti¬ 
cal expression with an integer constant. This means the enclosed codes are to be 
used until there is no more output (or input) to process. The parentheses sur¬ 
rounding the entire format string are interpreted in this manner. 


FORMAT FOUT(4(SiOtX5>M2) 
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